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 <manuelmx11 en 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 en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
--
Saludos,
Carlos Ortega
www.qualityexcellence.es
[[alternative HTML version deleted]]