# NOT RUN {
rec <- recipe( ~ ., data = iris) %>%
step_filter(Sepal.Length > 4.5, Species == "setosa")
prepped <- prep(rec, training = iris %>% slice(1:75))
library(dplyr)
dplyr_train <-
iris %>%
as_tibble() %>%
slice(1:75) %>%
dplyr::filter(Sepal.Length > 4.5, Species == "setosa")
rec_train <- bake(prepped, new_data = NULL)
all.equal(dplyr_train, rec_train)
dplyr_test <-
iris %>%
as_tibble() %>%
slice(76:150) %>%
dplyr::filter(Sepal.Length > 4.5, Species != "setosa")
rec_test <- bake(prepped, iris %>% slice(76:150))
all.equal(dplyr_test, rec_test)
values <- c("versicolor", "virginica")
qq_rec <-
recipe( ~ ., data = iris) %>%
# Embed the `values` object in the call using !!
step_filter(Sepal.Length > 4.5, Species %in% !!values)
tidy(qq_rec, number = 1)
# }
Run the code above in your browser using DataLab