data(plethodon)
Y.gpa<-gpagen(plethodon$land) #GPA-alignment
y<-two.d.array(Y.gpa$coords)
### Procrustes ANOVA
procD.lm(y~plethodon$species,iter=99)
### Pairwise comparisons
pairwiseD.test(y,plethodon$species,iter=99)
Run the code above in your browser using DataLab