## Not run:
# # load data linnerud
# data(linnerud)
#
# # apply inter-battery method
# ib = interbat(linnerud[,1:3], linnerud[,4:6])
#
# # plot variables
# plot(ib, what="variables")
#
# # plot observations
# plot(ib, what="observations", comps=c(1,1), where=c("t","u"))
# ## End(Not run)
Run the code above in your browser using DataLab