data(biomass, package = "modeldata")
biomass_tr <- biomass[biomass$dataset == "Training", ]
biomass_te <- biomass[biomass$dataset == "Testing", ]
rec <- recipe(
HHV ~ carbon + hydrogen + oxygen + nitrogen + sulfur,
data = biomass_tr
) %>%
step_percentile(carbon)
prepped_rec <- prep(rec)
prepped_rec %>%
bake(biomass_te)
tidy(rec, 1)
tidy(prepped_rec, 1)
Run the code above in your browser using DataLab