# NOT RUN {
library('TreeTools', quietly = TRUE, warn.conflicts = FALSE)
SPRDist(BalancedTree(7), PectinateTree(7))
SPRDist(BalancedTree(7), as.phylo(0:2, 7))
SPRDist(as.phylo(0:2, 7), PectinateTree(7))
SPRDist(list(bal = BalancedTree(7), pec = PectinateTree(7)),
as.phylo(0:2, 7))
CompareAll(as.phylo(30:33, 8), SPRDist)
# }
Run the code above in your browser using DataLab