if (FALSE) {
# load dataset linnerud
data(linnerud)
# apply simpls
sim = simpls(linnerud[,1:3], linnerud[,4:6])
# plot variables (circle of correlations)
plot(sim, what="variables")
# plot observations (as points)
plot(sim, what="observations")
# plot observations with names
plot(sim, what="observations", show.names=TRUE)
}
Run the code above in your browser using DataLab