data(whales, events.whales)
ephy <- getEventData(whales, events.whales, burnin=0.25, nsamples=500)
# specify a set of tips for the subtree
tips <- sample(ephy$tip.label,size=20,replace=FALSE)
subphy <- subtreeBAMM(ephy,tips=tips)
# specify a innernode for subsetting
subphy <- subtreeBAMM(ephy,node=103)
# plot the subtree
plot(subphy)
Run the code above in your browser using DataLab