if (requireNamespace("mixOmics", quietly = TRUE)) {
# Data simulation
set.seed(1)
simul <- SimulateRegression(n = 100, pk = c(5, 5, 5), family = "gaussian")
x <- simul$xdata
y <- simul$ydata
# PLS
mypls <- PLS(xdata = x, ydata = y, ncomp = 3)
# Predicted values
predicted <- PredictPLS(xdata = x, model = mypls)
}
Run the code above in your browser using DataLab