if (FALSE) {
# load dataset vehicles
data(vehicles)
# apply plsreg2
pls2 = plsreg2(vehicles[,1:12], vehicles[,13:16])
# plot variables (circle of correlations)
plot(pls2, what="variables")
# plot observations (as points)
plot(pls2, what="observations")
# plot observations with labels
plot(pls2, what="observations", show.names=TRUE)
}
Run the code above in your browser using DataLab