data(plethspecies)
Y.gpa<-gpagen(plethspecies$land) #GPA-alignment
#Test for phylogenetic signal in shape
physignal(plethspecies$phy,Y.gpa$coords,method="Kmult",iter=99)
#Test for phylogenetic signal in size
Csize <- matrix(Y.gpa$Csize, dimnames=list(names(Y.gpa$Csize))) # make matrix Csize with names
physignal(plethspecies$phy,Csize,method="Kmult",iter=99)
Run the code above in your browser using DataLab