require(vegan)
data(iris)
# Permutational MANOVA
adonis(iris[,1:4]~Species,data=iris,method="euclidian")
# Pairwise comparisons
# (not enough permutations here but faster to run)
pairwise.perm.manova(iris[,1:4],iris$Species,nperm=49)
# or
pairwise.perm.manova(dist(iris[,1:4],"euclidian"),iris$Species,nperm=49)
Run the code above in your browser using DataLab