# NOT RUN {
library(modeldata)
data(okc)
rec <- recipe(~ diet + location, data = okc) %>%
step_unknown(diet, new_level = "UNKNOWN") %>%
step_relevel(diet, ref_level = "UNKNOWN") %>%
prep()
data <- bake(rec, okc)
levels(data$diet)
# }
Run the code above in your browser using DataLab