# NOT RUN {
library(treenomial)
library(ape)
# generate a tree
tree <- rtree(n = 30, rooted = TRUE)
# a real coefficient matrix
treeToPoly(tree, varLabels = TRUE, numThreads = 0)
# complex coefficient vector for the tree
treeToPoly(tree, type = "yEvaluated", y = 1+1i, varLabels = TRUE, numThreads = 0)
# for a list of trees
treeToPoly(rmtree(4, 20), varLabels = TRUE, numThreads = 0)
# }
Run the code above in your browser using DataLab