powered by
is.ultrametric(phy, tol = .Machine$double.eps^0.5)
"phylo"
TRUE
FALSE
tol
is.binary.tree
.Machine