# NOT RUN {
so <- scale(olives[,3:8])
dcorMVdata(so,ind=1)
p1 <- princomp(so)
so1 <- cbind(so,p1$scores[,1])
so2 <- cbind(so,p1$scores[,2])
so12 <- cbind(so,p1$scores[,1:2])
dcorMVdata(so1,ind=7)
dcorMVdata(so2,ind=7)
dcorMVdata(so12,ind=7:8)
# how about principal curves?
# }
Run the code above in your browser using DataLab