# NOT RUN {
data(okc)
okc_rec <- recipe(~ ., data = okc) %>%
step_other(all_nominal(), threshold = 0.05, other = "another") %>%
step_date(date, features = "dow") %>%
step_center(all_numeric()) %>%
step_dummy(all_nominal()) %>%
check_cols(starts_with("date"), age, height)
tidy(okc_rec)
tidy(okc_rec, number = 2)
tidy(okc_rec, number = 3)
okc_rec_trained <- prep(okc_rec, training = okc)
tidy(okc_rec_trained)
tidy(okc_rec_trained, number = 3)
# }
Run the code above in your browser using DataLab