tree <- PectinateTree(8)
splits <- as.Splits(tree)
TipsInSplits(splits)
plot(tree)
LabelSplits(tree, as.character(splits), frame = "none", pos = 3L, cex = 0.7)
LabelSplits(tree, TipsInSplits(splits), unit = " tips", frame = "none",
pos = 1L)
Run the code above in your browser using DataLab