How can I get the variances between groups from a PCA? Using R

Question

I\'m performing a selection test following Ackermann & Cheverud (2002) to find out whether the differences among my study groups are due to selection or drift. I don\'t