# classified creates a factor with a corresponding codelist attribute
classified(c('a','b','c'))
# codelist 'remembers' the origins of levels
classified(c('a','b','c'), labels = c('A','B','C'))
# classified is 'reversible'
library(magrittr)
c('a','b','c') %>%
classified(labels = c('A','B','C')) %>%
unclassified
Run the code above in your browser using DataLab