# NOT RUN {
library(recipes)
library(modeldata)
data(okc_text)
okc_rec <- recipe(~ ., data = okc_text) %>%
step_sequence_onehot(essay0)
okc_obj <- okc_rec %>%
prep()
juice(okc_obj)
tidy(okc_rec, number = 1)
tidy(okc_obj, number = 1)
# }
Run the code above in your browser using DataLab