[R-es] Script sin resultados completos

[Carlos Ortega]

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 <manuelmx11 en 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 en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>



-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]