<div dir="ltr"><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;color:rgb(204,0,0)">Hola Colegas:</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;color:rgb(204,0,0)">Tengo el siguiente script donde no se en donde esta el error, ojalá que alguno de ustedes me pueda ayudar.</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;color:rgb(204,0,0)">Anticipo las gracias más cumplidas por anticipado.</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;color:rgb(204,0,0)"><div class="gmail_default">bas <- read.csv('TAB.csv', header = F)</div><div class="gmail_default">sv <- 0</div><div class="gmail_default">sm <- 0</div><div class="gmail_default">lg <- 0</div><div class="gmail_default">smas <- matrix (1:390)</div><div class="gmail_default">for (i in 1:39) {</div><div class="gmail_default">#   if (i == 8) {break}</div><div class="gmail_default">   for (j in 1:10) {</div><div class="gmail_default">      #  sm[i] <- 0</div><div class="gmail_default">      sm[j] <- 0</div><div class="gmail_default">      for (k in 1:127) {</div><div class="gmail_default">         if(bas[i,k] == 0) next(j)</div><div class="gmail_default">         if(bas[i, k] == j)</div><div class="gmail_default">            sm[j] <- sm[j] + 1</div><div class="gmail_default">         #   smas <- matrix (sm, 10, i)</div><div class="gmail_default">         sv[j*i] <- sm[j]</div><div class="gmail_default">         smas <- matrix (sv, 39, i, byrow = T)</div><div class="gmail_default">         lg <- lg + sm[j]  # sm es el ultimo valor de sm</div><div class="gmail_default">         #  sm[j + 1] <- 0</div><div class="gmail_default">      }  # de k</div><div class="gmail_default">   }  # de j</div><div class="gmail_default">}  # de i</div><div class="gmail_default"># ME DA warnings PERO DA RESULTADOS INCORRECTOS</div><div class="gmail_default"># 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</div><div class="gmail_default"># 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</div><div class="gmail_default"><br></div><div class="gmail_default">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.</div><div class="gmail_default">Adjunto el archivo Tab.csv.</div><div class="gmail_default">Reitero las gracias por la atención que se sirvan darme.</div><div class="gmail_default">Atentamente,</div><div class="gmail_default"><br></div></div><div><div class="gmail_signature"><div dir="ltr"><div style="text-align:center"><b style="font-size:large"><font color="#cc0000" face="trebuchet ms, sans-serif">MANOLO MÁRQUEZ P.</font></b></div></div></div></div>
</div>