if (FALSE) {
# load dataset linnerud
data(linnerud)
# apply nipals
ib = interbat(linnerud[,1:3], linnerud[,4:6])
# plot variables (circle of correlations)
plot(ib, what="variables")
# plot observations (as points) using components (t1,u1)
plot(ib, what="observations", comps=c(1,1), where=c("t","u"))
# plot observations with names using components (t1,u1)
plot(ib, what="observations", comps=c(1,1),
where=c("t","u"), show.names=TRUE)
# plot observations (as points) using components (t1,t2)
plot(ib, what="observations", comps=c(1,2), where=c("t","t"))
# plot observations (as points) using components (u1,u2)
plot(ib, what="observations", comps=c(1,2), where=c("u","u"))
}
Run the code above in your browser using DataLab