# NOT RUN {
library(recipes)
library(modeldata)
data(tate_text)
tate_rec <- recipe(~., data = tate_text) %>%
step_tokenize(medium, artist) %>%
step_tokenmerge(medium, artist)
tate_obj <- tate_rec %>%
prep()
bake(tate_obj, new_data = NULL)
tidy(tate_rec, number = 2)
tidy(tate_obj, number = 2)
# }
Run the code above in your browser using DataLab