oldPar <- par(mfrow = c(1, 2), mar = rep(0.5, 4))
# Two trees differing only in placement of tip 2:
trees <- as.phylo(c(0, 53), 6)
plot(trees[[1]])
plot(trees[[2]])
# Strict consensus (left panel) lacks resolution:
plot(ape::consensus(trees))
# But omitting tip two (right panel) reveals shared structure in common:
plot(ConsensusWithout(trees, "t2"))
MarkMissing("t2")
par(oldPar)
Run the code above in your browser using DataLab