# NOT RUN {
data("phyllostomid")
# model fit with mandible~"grp2"
fit <- mvgls(mandible~grp2, data=phyllostomid, phyllostomid$tree, model="lambda", method="PL")
# pairwise tests
pairwise.glh(fit, term="grp2", test="Pillai", adjust="holm", nperm=1000, verbose=TRUE)
# fit the model by ML (p<n)
fitb <- mvgls(mandible[,1:5]~grp2, data=phyllostomid,
phyllostomid$tree, model="lambda", method="LL")
pairwise.glh(fitb, term="grp2", test="Pillai", adjust="holm", verbose=TRUE)
# use permutations on ML fit
pairwise.glh(fitb, term="grp2", test="Pillai", adjust="holm", nperm=1000, parametric=FALSE)
# }
Run the code above in your browser using DataLab