# NOT RUN {
data(meats, package = "modeldata")
mv_meats <-
pls(num_comp = 20) %>%
set_engine("mixOmics") %>%
set_mode("regression") %>%
fit_xy(x = meats[-(1:5), 1:100], y = meats[-(1:5), 101:103])
pred_vals <- multi_predict(mv_meats, meats[1:5, 1:100], num_comp = 1:10)
# Predictions over components nested within sample rows
pred_vals
# For first sample:
pred_vals$.pred[[1]]
# }
Run the code above in your browser using DataLab