data(geospiza)
attach(geospiza)
drop.tip(geospiza.tree, "olivacea")->g.tree
f<-as.factor(c(rep(0, 7), rep(1, 6)))
phy.manova(geospiza.data, f, g.tree)
x<-geospiza.data[,1]
names(x)<-rownames(geospiza.data)
phy.anova(x, f, g.tree)
Run the code above in your browser using DataLab