<div dir="ltr"><div class="gmail_default" style="font-family:"trebuchet ms",sans-serif;color:rgb(204,0,0)">Me debo explicar, tengo el siguiente script:</div><div class="gmail_default" style="font-family:"trebuchet ms",sans-serif;color:rgb(204,0,0)">library(ggplot2)</div><div class="gmail_default"><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">da <- read.csv('T20.csv')</font><br></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">un <- da[da[,2] == 1,] <br></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">do <- da[da[,2] == 2,]</font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">tr <- da[da[,2] == 3,]<br></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">cu <- da[da[,2] == 4,]<br></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">ci <- da[da[,2] == 5,]<br></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">se <- da[da[,2] == 6,]</font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">si <- da[da[,2] == 7,]</font></div><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">if (length[un$d] >= 8) {sua1 <- loess(d ~ n, data = un, span = 0.65, degree = 2)</span><br></font></div><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     idx1 <- predict(sua1)</span></font></div><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     print(tail(idx1))}</span></font></div><div class="gmail_default"><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">if (length[do$d] >= 8) {sua2 <- loess(d ~ n, data = do, span = 0.65, degree = 2)</span><br></font></div><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     idx2 <- predict(sua2)</span></font></div><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     print(tail(idx2))}</span></font></div><div class="gmail_default"><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">if (length[tr$d] >= 8) {sua3 <- loess(d ~ n, data = tr, span = 0.65, degree = 2)</span><br></font></div><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     idx3 <- predict(sua3)</span></font></div><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     print(tail(idx3))}</span></font></div><div class="gmail_default"><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">if (length[cu$d] >= 8) {sua4 <- loess(d ~ n, data = cu, span = 0.65, degree = 2)</span><br></font></div><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     idx4 <- predict(sua4)</span></font></div><div class="gmail_default"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     print(tail(idx4))}</span></font></div><div class="gmail_default"><div class="gmail_default" style="color:rgb(204,0,0);font-family:"trebuchet ms",sans-serif;font-size:12.8px">if (length[ci$d] >= 8) {sua5 <- loess(d ~ n, data = ci, span = 0.65, degree = 2)</div><div class="gmail_default" style="color:rgb(204,0,0);font-family:"trebuchet ms",sans-serif;font-size:12.8px">     idx5 <- predict(sua5)</div><div class="gmail_default" style="color:rgb(204,0,0);font-family:"trebuchet ms",sans-serif;font-size:12.8px">     print(tail(idx5))}</div><div class="gmail_default"><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">if (length[se$d] >= 8) {sua6 <- loess(d ~ n, data = se, span = 0.65, degree = 2)</span><br></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     idx6 <- predict(sua6)</span></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     print(tail(idx6))}</span></font></div><div class="gmail_default"><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">if (length[si$d] >= 8) {sua7 <- loess(d ~ n, data = si, span = 0.65, degree = 2)</span><br></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     idx7 <- predict(sua7)</span></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">     print(tail(idx7))}</span></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px"><br></span></font></div><div class="gmail_default" style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small"><font color="#cc0000" face="trebuchet ms, sans-serif"><span style="font-size:12.8px">Adjunto archivo T20.csv</span></font></div><div class="gmail_default" style="color:rgb(204,0,0);font-family:"trebuchet ms",sans-serif"><span style="font-size:12.8px">El objeto de incluir if (length['x'$d] >= 8) es eliminar aquellos grupos cuyo numero sea de poca, ninguna ayuda o quizá hasta se genere un error.</span></div><div class="gmail_default" style="color:rgb(204,0,0);font-family:"trebuchet ms",sans-serif"><span style="font-size:12.8px">No puedo usar la instrucción antes citada porque se genera un warning diciendo que sólo se usará el primer elemento.</span></div><div class="gmail_default" style="color:rgb(204,0,0);font-family:"trebuchet ms",sans-serif"><span style="font-size:12.8px">RStudio me da la cantidad de observaciones de cada grupo (frecuencia), pero si elimino manualmente el/los grupos, es lento, y por ello intento almacenar la cantidad de elementos en alguna variable con la cual se evite usar esos datos.</span></div><div class="gmail_default"><span style="font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">Agradezco a Javier Marcuzzi su rápida respuesta y espero que en esta ocasión haya sido explicito.</font></span></div><div class="gmail_default"><span style="font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif">Nuevamente doy las gracias anticipadas por la ayuda que me presten.</font></span></div><div class="gmail_default"><span style="font-size:12.8px"><font color="#cc0000" face="trebuchet ms, sans-serif"><br></font></span></div></div></div></div></div></div></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>