if (FALSE) {
# 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"))
}
Run the code above in your browser using DataLab