# \donttest{
data(phyllostomid)
# Fit a linear model by PL
fit <- mvgls(mandible[,-1]~grp1, data=phyllostomid, phyllostomid$tree, model="lambda", method="PL")
# Project the mandible shape of Ametrida bat genus
proj_shape <- pcaShape(fit, axis=1, ndim=2, spp="Ametrida", plot=TRUE)
polygon(proj_shape$Ametrida)
# }
Run the code above in your browser using DataLab