# NOT RUN {
data(biomass)
# rec <- recipe(HHV ~ ., data = biomass) %>%
# update_role(sample, new_role = "id var") %>%
# update_role(dataset, new_role = "split variable") %>%
# step_nnmf(all_predictors(), num_comp = 2, seed = 473, num_run = 2) %>%
# prep(training = biomass, retain = TRUE)
#
# juice(rec)
#
# library(ggplot2)
# ggplot(juice(rec), aes(x = NNMF2, y = NNMF1, col = HHV)) + geom_point()
# }
Run the code above in your browser using DataLab