data(geospiza)
attach(geospiza)
drop.tip(geospiza.tree, "olivacea")->g.tree
gb<-as.factor(geospiza.data[,1]>4.2)
names(gb)<-rownames(geospiza.data)
fit.discrete(gb, g.tree)
fit.discrete(gb, g.tree, lambda=TRUE)
fit.discrete(gb, g.tree, delta=TRUE)
Run the code above in your browser using DataLab