Leandro tente, table(cut(x, c(-Inf, 2, 6, 8, 9, Inf), labels = sprintf("Tipo %s", 1:5))) 2011/8/24 Leandro Marino <leandro@cesgranrio.org.br>
** **
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 ** ***** leandro@cesgranrio.org.br*
** **
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 R-br@listas.c3sl.ufpr.br 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
