# NOT RUN {
## set up a factor with labels
a <- factor(rep(1:4, 4), labels=c("A","B","C","D"))
## recode "A" and "D" to 1 and "B" and "C" to 2
b <- fac.recode(a, c(1,2,2,1), labels = c("a","b"))
# }
Run the code above in your browser using DataCamp Workspace