# NOT RUN {
forest <- as.phylo(c(1, 10, 10, 100, 1000), nTip = 7)
# Simple, but means counting each split in the forest twice:
tree1Freqs <- SplitFrequency(forest[[1]], forest)
SplitFrequency(forest[[2]], forest)
plot(forest[[1]])
ape::nodelabels(tree1Freqs, node=as.integer(names(tree1Freqs)))
# }
Run the code above in your browser using DataLab