data(biomass, package = "modeldata")
biomass_tr <- biomass[biomass$dataset == "Training",]
biomass_te <- biomass[biomass$dataset == "Testing",]
rec <- recipes::recipe(
HHV ~ carbon + hydrogen + oxygen + nitrogen + sulfur,
data = biomass_tr)
center_trans <- rec %>%
step_center_to(carbon, contains("gen"), -hydrogen)
center_obj <- recipes::prep(center_trans, training = biomass_tr)
transformed_te <- recipes::bake(center_obj, biomass_te)
biomass_te[1:10, names(transformed_te)]
transformed_te
recipes::tidy(center_trans)
recipes::tidy(center_obj)
Run the code above in your browser using DataLab