# NOT RUN {
data(efc)
x <- to_factor(efc$e42dep)
str(x)
frq(x)
x <- ref_lvl(x, lvl = 3)
str(x)
frq(x)
library(dplyr)
dat <- efc %>%
select(c82cop1, c83cop2, c84cop3) %>%
to_factor()
frq(dat)
ref_lvl(dat, c82cop1, c83cop2, lvl = 2) %>% frq()
# }
Run the code above in your browser using DataLab