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