# NOT RUN {
library(modeldata)
data(credit_data)
rec <- recipe(Status ~ ., data = credit_data) %>%
step_filter_missing(all_predictors(), threshold = 0)
filter_obj <- prep(rec)
filtered_te <- bake(filter_obj, new_data = NULL)
tidy(rec, number = 1)
tidy(filter_obj, number = 1)
# }
Run the code above in your browser using DataLab