[R-br] Factors no R

[Leandro Marino]

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 em cesgranrio.org.br> leandro em 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.

 

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110824/a1a2edf4/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: image001.jpg
Tipo: image/jpeg
Tamanho: 2743 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110824/a1a2edf4/attachment.jpg>