# NOT RUN {
library(modeldata)
data(biomass)
biomass_tr <- biomass[biomass$dataset == "Training", ]
biomass_te <- biomass[biomass$dataset == "Testing", ]
rec <- recipe(HHV ~ carbon + hydrogen + oxygen + nitrogen + sulfur,
data = biomass_tr
)
library(dplyr)
smaller_set <- rec %>%
step_rm(contains("gen"))
smaller_set <- prep(smaller_set, training = biomass_tr)
filtered_te <- bake(smaller_set, biomass_te)
filtered_te
tidy(smaller_set, number = 1)
# }
Run the code above in your browser using DataLab