data(sensory)
mod <- plsr(Panel ~ Quality, data = sensory)
## 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