[R-es] Script sin resultados completos

[Manuel Máquez]

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>