## Not run:
# # load dataset linnerud
# data(linnerud)
#
# # apply plsca
# my_plsca = plsca(linnerud[,1:3], linnerud[,4:6])
#
# # plot variables (circle of correlations)
# plot(my_plsca, what="variables")
#
# # plot observations (as points) using components (t1,u1)
# plot(my_plsca, what="observations", comps=c(1,1), where=c("t","u"))
#
# # plot observations with names using components (t1,u1)
# plot(my_plsca, what="observations", comps=c(1,1),
# where=c("t","u"), show.names=TRUE)
#
# # plot observations (as points) using components (t1,t2)
# plot(my_plsca, what="observations", comps=c(1,2), where=c("t","t"))
#
# # plot observations (as points) using components (u1,u2)
# plot(my_plsca, what="observations", comps=c(1,2), where=c("u","u"))
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace