powered by
pls2_nipals(X, Y, a, it = 50, tol = 1e-08, scale = FALSE)
mvr
pls1_nipals
data(cereal) res <- pls2_nipals(cereal$X,cereal$Y,a=5)
Run the code above in your browser using DataLab