data(biomass, package = "modeldata")
# Old:
# rec <- recipe(HHV ~ ., data = biomass) |>
# update_role(sample, new_role = "id var") |>
# update_role(dataset, new_role = "split variable") |>
# step_nnmf(all_numeric_predictors(), num_comp = 2, seed = 473, num_run = 2) |>
# prep(training = biomass)
#
# New:
# rec <- recipe(HHV ~ ., data = biomass) |>
# update_role(sample, new_role = "id var") |>
# update_role(dataset, new_role = "split variable") |>
# step_nnmf_sparse(all_numeric_predictors(), num_comp = 2, seed = 473) |>
# prep(training = biomass)
#
# bake(rec, new_data = NULL)
Run the code above in your browser using DataLab