(f1 <- factor(letters[1:5]))
(f2 <- factor(letters[3:10]))
tmp <- list(f1, f2)
combineLevels(tmp)
combineLevels(tmp, apply=FALSE)
f1[2] <- NA
f1 <- factor(f1)
tmp <- list(f1, f2)
combineLevels(tmp, apply=FALSE, drop=TRUE)
Run the code above in your browser using DataLab