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