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