powered by
posterior.evolrate
"NA"
paste.tree(tr1, tr2)
tr1<-rtree(10) tr2<-rtree(10) tr1$tip.label[1]<-"NA" tr2$root.edge<-0 tr3<-paste.tree(tr1,tr2)
Run the code above in your browser using DataLab