if (FALSE) { # interactive() || identical(Sys.getenv("IN_PKGDOWN"), "true")
library(recipes)
library(caret)
data(biomass, package = "modeldata")
data(biomass)
recipe <- biomass %>%
recipe(HHV ~ carbon + hydrogen + oxygen + nitrogen + sulfur) %>%
step_center(all_predictors()) %>%
step_scale(all_predictors()) %>%
step_spatialsign(all_predictors())
train.recipe_fit <- train(recipe, biomass,
method = "svmRadial",
metric = "RMSE")
out <- butcher(train.recipe_fit, verbose = TRUE)
}
Run the code above in your browser using DataLab