# 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])
# }
Run the code above in your browser using DataLab