# NOT RUN {
pls(num_comp = 2, predictor_prop = 0.2) %>%
set_engine("mixOmics") %>%
set_mode("regression") %>%
translate()
pls(num_comp = 2, predictor_prop = 1) %>%
set_engine("mixOmics") %>%
set_mode("classification") %>%
translate()
pls(num_comp = 6) %>%
set_engine("mixOmics") %>%
set_mode("regression") %>%
translate()
pls() %>%
set_engine("mixOmics") %>%
set_mode("classification") %>%
translate()
model <- pls(predictor_prop = 0.1)
model
update(model, predictor_prop = 1)
update(model, predictor_prop = 1, fresh = TRUE)
# }
Run the code above in your browser using DataLab