powered by
get.rooted.tree.height(rooted.tree, tol = .Machine$double.eps^0.5)
Class phylo
is.ultrametric
rooted.tree
phylo
ms
read.tree
as.phylo
rescale.rooted.tree
set.seed(1234) ret.ms <- ms(5, 1, opts = paste("-T", sep = " ")) tree.ms <- read.tree(text = ret.ms[3]) is.ultrametric(tree.ms) get.rooted.tree.height(tree.ms)
Run the code above in your browser using DataLab