data(oliveoil)
mod <- plsr(sensory ~ chemical, data = oliveoil)
if (FALSE) {
## These are equivalent
biplot(mod)
plot(mod, plottype = "biplot")
## The four combinations of x and y points:
par(mfrow = c(2,2))
biplot(mod, which = "x") # Default
biplot(mod, which = "y")
biplot(mod, which = "scores")
biplot(mod, which = "loadings")
}
Run the code above in your browser using DataLab