<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>