# NOT RUN {
library(treenomial)
library(ape)
# distance between coefficient matrices of one 10 tip tree
# and 100 trees with 30 tips using
# create the coefficient matrices
tenTipTree <- rtree(10)
tenTipTreeCoeff <- treeToPoly(tenTipTree, numThreads = 0)
thirtyTipList <- rmtree(100, 30)
thirtyTipCoeffs <- treeToPoly(thirtyTipList, numThreads = 0)
# find the distance
polyDist(tenTipTreeCoeff, thirtyTipCoeffs, numThreads = 0)
# }
Run the code above in your browser using DataLab