data(credit_data, package = "modeldata")
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