# NOT RUN {
if (require(shapes)) {
## generate landmarks using
##the first PC-score of the first specimen
proc <- procSym(gorf.dat)
lm <- showPC(proc$PCscores[1,1],proc$PCs[,1],proc$mshape)
plot(lm,asp=1)
##now the first 3 scores
lm2 <- showPC(proc$PCscores[1,1:3],proc$PCs[,1:3],proc$mshape)
points(lm2,col=2)
}
# }
Run the code above in your browser using DataLab