if (FALSE) {
# load data climbing ropes
data(ropes)
# apply nipals with 3 components
nip1 = nipals(ropes[,-1], comps=3)
# plot variables (correlations)
plot(nip1)
# plot observations
plot(nip1, what="obs")
# plot observations with names
plot(nip1, what="obs", show.names=TRUE)
}
Run the code above in your browser using DataLab