Leandro tente,
table(cut(x, c(-Inf, 2, 6, 8, 9, Inf), labels = sprintf("Tipo %s", 1:5)))2011/8/24 Leandro Marino <[email protected]> > ** ** > > Caros,**** > > Em algum ponto do tempo houve uma mudança na função factor.**** > > ### no passado:**** > > *R.version* > > # _ **** > > #platform i386-pc-mingw32 **** > > #arch i386 **** > > #os mingw32 **** > > #system i386, mingw32 **** > > #status **** > > #major 2 **** > > #minor 9.0 **** > > #year 2009 **** > > #month 04 **** > > #day 17 **** > > #svn rev 48333 **** > > #language R **** > > #version.string R version 2.9.0 (2009-04-17)**** > > *set.seed(1)* > > *x <- round(runif(150,0,10),0)* > > *table(x)* > > #x**** > > # 0 1 2 3 4 5 6 7 8 9 10 **** > > # 4 14 15 13 16 19 16 18 15 14 6 **** > > *table(as.character(factor(x,levels=c(0:10),labels=c(rep('Tipo 1',3),* > > * rep('Tipo 2',4),rep('Tipo 3',2),'Tipo 4','Tipo 5'))))* > > #Tipo 1 Tipo 2 Tipo 3 Tipo 4 Tipo 5 **** > > # 33 64 33 14 6**** > > ** ** > > R.version**** > > # _ **** > > #platform i386-pc-mingw32 **** > > #arch i386 **** > > #os mingw32 **** > > #system i386, mingw32 **** > > #status **** > > #major 2 **** > > #minor 13.1 **** > > #year 2011 **** > > #month 07 **** > > #day 08 **** > > #svn rev 56322 **** > > #language R **** > > #version.string R version 2.13.1 (2011-07-08)**** > > set.seed(1)**** > > x <- round(runif(150,0,10),0)**** > > table(x)**** > > #x**** > > # 0 1 2 3 4 5 6 7 8 9 10 **** > > # 4 14 15 13 16 19 16 18 15 14 6 **** > > table(as.character(factor(x,levels=c(0:10),labels=c(rep('Tipo 1',3),**** > > rep('Tipo 2',4),rep('Tipo 3',2),'Tipo 4','Tipo 5'))))**** > > #**** > > #Tipo 1 Tipo 2 Tipo 3 Tipo 4 Tipo 5 **** > > # 33 64 33 14 6 **** > > #Mensagens de aviso perdidas:**** > > #In `levels<-`(`*tmp*`, value = c("Tipo 1", "Tipo 1", "Tipo 1", "Tipo 2", > :**** > > # não se permite mais níveis duplicados em fatores**** > > Ele até faz mas com mensagem de erro. Como poderia fazer isto sem ter o > erro!?**** > > ** ** > > **** > > Atenciosamente, > *Leandro Lins Marino** > **Centro de Avaliação** > **Fundação CESGRANRIO** > **Rua Santa Alexandrina, 1011 - 2º andar** > **Rio de Janeiro, RJ - CEP: 20261-903** > **(** **(21) 2103-9600 R.:236 ** > ***** [email protected]* > > ** ** > > P* **Antes de imprimir* *pense em sua responsabilidade e compromisso com > o* *MEIO AMBIENTE* **** > > ** ** > > Esta mensagem, incluindo seus anexos, pode conter informacoes privilegiadas > e/ou de carater confidencial, nao podendo ser retransmitida sem autorizacao > do remetente. Se voce nao e o destinatario ou pessoa autorizada a recebe-la, > informamos que o seu uso, divulgacao, copia ou arquivamento sao proibidos. > **** > > Portanto, se você recebeu esta mensagem por engano, por favor, nos informe > respondendo imediatamente a este e-mail e em seguida apague-a.**** > > ** ** > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. > -- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O
<<image001.jpg>>
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
