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