## load tree
data(anoletree)
## find the common ancestor of three taxa
anc<-findMRCA(anoletree,c("cristatellus","cooki",
"gundlachi"))
## graph the tree
plotTree(anoletree,type="fan",fsize=0.7,lwd=1)
## label the identified ancestor
nodelabels(node=anc,frame="circle",pch=21,cex=1.5,
bg="blue")
legend("topleft",
"most recent common ancestor\nof Puerto Rican TG anoles",
pch=21,pt.cex=1.5,pt.bg="blue",cex=0.7,bty="n")
## reset margin to default
par(mar=c(5.1,4.1,4.1,2.1))
Run the code above in your browser using DataLab