[R-es] Script sin resultados completos
Manuel Máquez
manuelmx11 en gmail.com
Mar Abr 19 19:38:04 CEST 2016
Hola Colegas:
Tengo el siguiente script donde no se en donde esta el error, ojalá que
alguno de ustedes me pueda ayudar.
Anticipo las gracias más cumplidas por anticipado.
bas <- read.csv('TAB.csv', header = F)
sv <- 0
sm <- 0
lg <- 0
smas <- matrix (1:390)
for (i in 1:39) {
# if (i == 8) {break}
for (j in 1:10) {
# sm[i] <- 0
sm[j] <- 0
for (k in 1:127) {
if(bas[i,k] == 0) next(j)
if(bas[i, k] == j)
sm[j] <- sm[j] + 1
# smas <- matrix (sm, 10, i)
sv[j*i] <- sm[j]
smas <- matrix (sv, 39, i, byrow = T)
lg <- lg + sm[j] # sm es el ultimo valor de sm
# sm[j + 1] <- 0
} # de k
} # de j
} # de i
# ME DA warnings PERO DA RESULTADOS INCORRECTOS
# AL PONER smas [,2] da 17 10 8 3 7 4 3 9 6 10 debiendo ser 17 19 16 9 5 11
5 2 5 3
# AL PONER smas [,3] da 10 17 10 8 3 7 4 3 9 6 debiendo ser 16 15 9 11 8 9
7 5 3 2
sv tampoco me proporciona resultados completos; parece que al cambiar de i
<- 1 a 2 se le perdiera la pista de en dónde se encuentra y la verdad no
encuentro de donde toma los resultados que saca; lo que sí me parece es que
recicla algún otro vector.
Adjunto el archivo Tab.csv.
Reitero las gracias por la atención que se sirvan darme.
Atentamente,
*MANOLO MÁRQUEZ P.*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160419/814dc751/attachment.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: TAB.csv
Type: text/csv
Size: 10890 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160419/814dc751/attachment.bin>
Más información sobre la lista de distribución R-help-es