Hola,
Te comento varias cosas:
- No obtengo ningún tipo de error, ni warning al ejecutar el script.
- Los resultados que obtengo de smas[,2] y smas[,3] son diferentes a los
que obtienes en los dos casos (el bueno y el malo).
> smas[,2]
[1] 17 NA 5 7 NA NA NA NA NA NA 17 NA 5 7 NA NA NA NA NA NA 17 NA 5
7 NA NA NA NA NA NA 17 NA 5 7
[35] NA NA NA NA NA
> smas[,3]
[1] 16 19 10 14 NA 5 NA NA 4 NA 16 19 10 14 NA 5 NA NA 4 NA 16 19 10
14 NA 5 NA NA 4 NA 16 19 10 14
[35] NA 5 NA NA 4
Y bueno, si hay tanta diferencia con respecto a lo que dices que debiera de
salir, no he mirado mucho más. Pero de todas formas, para seguir el bucle,
lo mejor es ir incluyendo variables intermedias e ir mostrándolas en
consola.
Aunque una estrategia mucho mejor es saber qué quieres hacer con tu fichero
y ver si este triple bucle es la mejora forma de atacar el problema o hay
alguna alternativa más eficiente y clara.
Saludos,
Carlos Ortega
www.qualityexcellence.es
El 19 de abril de 2016, 19:38, Manuel Máquez <manuelm...@gmail.com>
escribió:
> 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.*
>
> _______________________________________________
> 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
