# NOT RUN {
library(modeldata)
data(biomass)
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