R help es - Sep 2017 - Error lectura

Buenas noches Colegas
Tengo un error, que considero es de lectura (introducción de datos), y no
doy en que me estoy equivocando, así que solicito su ayuda.
Tengo el siguiente código:
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))
    }
}
He puesto dos asignaciones para mtzbin[i, j] porque las dos me conducen a
que Rstudio me marca error; en el primer caso me indica:
Error in vec/sma[i] : argumento no-numérico para operador binario
y en el segundo marca:
Error in mtzbin[i, j] <- ((vec/sma)^vec) * ((1 - vec/sma)^(sma - vec)) *  :
  número de items para para sustituir no es un múltiplo de la longitud del
reemplazo
Interpreto que se trata de un error de lectura puesto que indica que es sma
el 'común denominador'.
Alguien me podría decir donde está mi error; por supuesto adelanto mis más
cumplidas gracias.
Atentamente;
*MANOLO MÁRQUEZ P.*

	[[alternative HTML version deleted]]

Si no envías un conjunto de datos con el que se pueda reproducir....

Saludos,
Carlos Ortega
www.qualityexcellence.es

El 8 de septiembre de 2017, 8:34, Manuel Máquez <manuelmx11 en gmail.com>
escribió:
> Buenas noches Colegas
> Tengo un error, que considero es de lectura (introducción de datos), y no
> doy en que me estoy equivocando, así que solicito su ayuda.
> Tengo el siguiente código:
> 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))
>     }
> }
> He puesto dos asignaciones para mtzbin[i, j] porque las dos me conducen a
> que Rstudio me marca error; en el primer caso me indica:
> Error in vec/sma[i] : argumento no-numérico para operador binario
> y en el segundo marca:
> Error in mtzbin[i, j] <- ((vec/sma)^vec) * ((1 - vec/sma)^(sma - vec)) *
:
>   número de items para para sustituir no es un múltiplo de la longitud del
> reemplazo
> Interpreto que se trata de un error de lectura puesto que indica que es sma
> el 'común denominador'.
> Alguien me podría decir donde está mi error; por supuesto adelanto mis más
> cumplidas gracias.
> Atentamente;
> *MANOLO MÁRQUEZ P.*
>
>         [[alternative HTML version deleted]]
>
> _______________________________________________
> 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]]