library(recipes)
library(modeldata)
data(ames)
rec <- recipe(~ Land_Contour + Neighborhood, data = ames) %>%
step_encoding_frequency(all_nominal_predictors()) %>%
prep()
rec %>%
bake(new_data = NULL)
tidy(rec, 1)
Run the code above in your browser using DataLab