data(plethodon)
Y.gpa<-gpagen(plethodon$land) #GPA-alignment
land.gps<-c("A","A","A","A","A","B","B","B","B","B","B","B")
#Morphological integration using PLS
morphol.integr(Y.gpa$coords,landgroups=land.gps,WithinConfig=TRUE,method="PLS",iter=99)
#Morphological integration using RV
morphol.integr(Y.gpa$coords,landgroups=land.gps,WithinConfig=TRUE,method="RV",iter=99)
Run the code above in your browser using DataLab