[R-es] Determinar Frecuencia

Manuel Máquez manuelmx11 en gmail.com
Jue Sep 29 19:43:10 CEST 2016


Me debo explicar, tengo el siguiente script:
library(ggplot2)
da <- read.csv('T20.csv')
un <- da[da[,2] == 1,]
do <- da[da[,2] == 2,]
tr <- da[da[,2] == 3,]
cu <- da[da[,2] == 4,]
ci <- da[da[,2] == 5,]
se <- da[da[,2] == 6,]
si <- da[da[,2] == 7,]
if (length[un$d] >= 8) {sua1 <- loess(d ~ n, data = un, span = 0.65, degree
= 2)
     idx1 <- predict(sua1)
     print(tail(idx1))}
if (length[do$d] >= 8) {sua2 <- loess(d ~ n, data = do, span = 0.65, degree
= 2)
     idx2 <- predict(sua2)
     print(tail(idx2))}
if (length[tr$d] >= 8) {sua3 <- loess(d ~ n, data = tr, span = 0.65, degree
= 2)
     idx3 <- predict(sua3)
     print(tail(idx3))}
if (length[cu$d] >= 8) {sua4 <- loess(d ~ n, data = cu, span = 0.65, degree
= 2)
     idx4 <- predict(sua4)
     print(tail(idx4))}
if (length[ci$d] >= 8) {sua5 <- loess(d ~ n, data = ci, span = 0.65, degree
= 2)
     idx5 <- predict(sua5)
     print(tail(idx5))}
if (length[se$d] >= 8) {sua6 <- loess(d ~ n, data = se, span = 0.65, degree
= 2)
     idx6 <- predict(sua6)
     print(tail(idx6))}
if (length[si$d] >= 8) {sua7 <- loess(d ~ n, data = si, span = 0.65, degree
= 2)
     idx7 <- predict(sua7)
     print(tail(idx7))}

Adjunto archivo T20.csv
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.
No puedo usar la instrucción antes citada porque se genera un warning
diciendo que sólo se usará el primer elemento.
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.
Agradezco a Javier Marcuzzi su rápida respuesta y espero que en esta
ocasión haya sido explicito.
Nuevamente doy las gracias anticipadas por la ayuda que me presten.

*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/20160929/60a33045/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: T20.csv
Type: text/csv
Size: 923 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160929/60a33045/attachment-0001.bin>


Más información sobre la lista de distribución R-help-es