## set up two factors and combine them
facs <- fac.gen(list(A = letters[1:3], B = 1:2), each = 4)
facs$AB <- with(facs, fac.combine(list(A, B), combine.levels = TRUE))
## now reverse the proces and uncombine the two factors
new.facs <- fac.uncombine(factor = facs$AB,
new.factors = list(A = letters[1:3], B = NULL),
sep = ",")
new.facs <- fac.uncombine(factor = facs$AB,
new.factors = list(A = NULL, B = NULL),
sep = ",")
Run the code above in your browser using DataLab