<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;font-size:large;color:rgb(204,0,0)">Los datos originales están Tdist.csv que adjunto, el código es:</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;font-size:large;color:rgb(204,0,0)"><font size="2">mc <- matrix(0,39,48,byrow = T) # Matriz Cta<br>mp <- matrix(0,39,48,byrow = T) # Matriz Pr<br>ms <- matrix(0,39,48,byrow = T) # Matriz Sumas<br>mtzbin <- matrix(0,39,48,byrow = T) # Matriz Binom<br>vec <- 0 # Valor temporal<br>dt <- read.csv('Tdist.csv', header = F) # Datos<br>lg <- 0 # Inicial <br>lg <- length(dt$V1) # Valor longitud<br>for(i in 1:lg) { # Registro<br> for(j in 1:39) { # Elemento<br> da <- dt[i ,j] # Dato<br> if(da == 0) {next<br> }else{<br> mc[j, da] <- mc[j, da] + 1<br> ms[j, da] <- ms[j, da] + da<br> it <- da/mc[j, da]<br> mp[j, da] <- it<br> } <br> }<br>}<br>sma <- rowSums(ms, 1)<br>sr <- max(sma)<br>write.csv(ms, file = 'dato.csv')<br>datIn <- read.table('dato.csv', sep = ',', <a href="http://as.is">as.is</a> = T)<br>for(i in 1:39) {<br> for(j in 1:48) {<br> vec <- datIn[i, j]<br> # mtzbin[i, j] <- ((vec/sma[j])^vec)*((1- vec/sma[j])^(sma[j]-vec))*choose((sr-1),(vec-1))<br> mtzbin[i, j] <- ((vec/sma)^vec)*((1-vec/sma)^(sma-vec))*choose((sr-1),(vec-1))<br> }<br>}</font></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:rgb(204,0,0)"><font size="4">Se trata de leer los datos por medio de la primera parte del código, para después construir una tabla de probabilidad binomial negativa, vía la segunda parte del mismo.</font></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:rgb(204,0,0)"><font size="4">Esa primera parte da por resultado 'dato.csv' que también adjunto.</font></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;font-size:large;color:rgb(204,0,0)"><font size="4">Carlos, nuevamente muchas gracias.</font></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;font-size:large;color:rgb(204,0,0)"><font size="4">Atentamente;</font><br clear="all"></div><div><div class="gmail_signature"><div dir="ltr"><div style="text-align:center"><b style="font-size:large"><font face="trebuchet ms, sans-serif" color="#cc0000">MANOLO MÁRQUEZ P.</font></b></div></div></div></div>
</div>