## Not run:
# # load data linnerud
# data(linnerud)
#
# # apply inter-battery method
# my_simca = simplsca(linnerud[,1:3], linnerud[,4:6])
#
# # plot variables
# plot(my_simca, what="variables")
# ## End(Not run)
Run the code above in your browser using DataLab