set.seed(1); x <- rcoal(15)
x1 <- tree.normalize.branchlengths(x, push.to.tips=TRUE)
x2 <- tree.normalize.branchlengths(x, push.to.tips=FALSE)
ggphylo(list('push.to.tips=TRUE'=x1, 'push.to.tips=FALSE'=x2), do.plot=TRUE)
Run the code above in your browser using DataLab