Last chance! 50% off unlimited learning
Sale ends in
"phylo"
).multi2di(phy, random = TRUE)
di2multi(phy, tol = 1e-08)
"phylo"
.multi2di
transforms all multichotomies into a series of
dichotomies with one (or several) branch(es) of length zero. di2multi
deletes all branches smaller than tol
and
collapses the corresponding dichotomies into a multichotomy.
data(bird.families)
is.binary.tree(bird.families)
is.binary.tree(multi2di(bird.families))
all.equal(di2multi(multi2di(bird.families)), bird.families)
### To see the results of randomly resolving a trichotomy:
tr <- read.tree(text = "(a:1,b:1,c:1);")
layout(matrix(1:4, 2, 2))
for (i in 1:4)
plot(multi2di(tr), use.edge.length = FALSE, cex = 1.5)
layout(matrix(1))
Run the code above in your browser using DataLab