
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 * <mailto:leandro@cesgranrio.org.br> 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.