# NOT RUN {
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