## simulate tree with total depth of 100
tree<-pbtree(n=1000,scale=100)
## subdivide into mapped eras
tree<-make.era.map(tree,c(0,25,50,75))
## create graph of mapped tree
plot(tree,ftype="off",lwd=1)
## reset margins to default
par(mar=c(5.1,4.1,4.1,2.1))
Run the code above in your browser using DataLab