En tu código, ¿qué es "ms"?... mtzbin <- matrix(0,39,48,byrow = T) vec <- 0 datIn <- read.table('dato.csv', sep = ',', as.is = T) sma <- rowSums(ms, 1) sr <- max(sma) for(i in 1:39) { for(j in 1:48) { vec <- datIn[i, j] # mtzbin[i, j] <- ((vec/sma[j])^vec)*((1- vec/sma[j])^(sma[j]-vec))*choose((sr-1),(vec-1)) mtzbin[i, j] <- ((vec/sma)^vec)*((1-vec/sma)^(sma-vec))*choose((sr-1),(vec-1)) } }
En los datos no aparece... Saludos, Carlos Ortega www.qualityexcellence.es El 8 de septiembre de 2017, 18:30, Manuel Máquez <manuelm...@gmail.com> escribió: > Carlos, muchas gracias por la rapidez de tu respuesta; claro que sí, te > adjunto los datos. > Nuevamente muchas gracias. > Atentamente; > *MANOLO MÁRQUEZ P.* > > _______________________________________________ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > -- Saludos, Carlos Ortega www.qualityexcellence.es [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es