get.rooted.tree.height(rooted.tree,
tol = .Machine$double.eps^0.5)
Class phylo
.is.ultrametric
of rooted.tree
should be in a phylo
class of ms
.ms
,
read.tree
,
as.phylo
,
is.ultrametric
,
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