data(biomass, package = "modeldata")
biomass$new_1 <- with(
biomass,
.1 * carbon - .2 * hydrogen + .6 * sulfur
)
biomass$new_2 <- with(
biomass,
.5 * carbon - .2 * oxygen + .6 * nitrogen
)
biomass_tr <- biomass[biomass$dataset == "Training", ]
biomass_te <- biomass[biomass$dataset == "Testing", ]
rec <- recipe(HHV ~ carbon + hydrogen + oxygen + nitrogen +
sulfur + new_1 + new_2,
data = biomass_tr
)
lincomb_filter <- rec %>%
step_lincomb(all_numeric_predictors())
lincomb_filter_trained <- prep(lincomb_filter, training = biomass_tr)
lincomb_filter_trained
tidy(lincomb_filter, number = 1)
tidy(lincomb_filter_trained, number = 1)
Run the code above in your browser using DataLab