# NOT RUN {
library(treenomial)
library(ape)
# wedge two real coefficient matrices
leaf <- matrix(c(0,1), nrow = 1, ncol = 2)
wedge(leaf, leaf)
# wedge two complex coefficient vectors
leaf <- as.complex(c(0,1))
wedge(leaf, leaf, "yEvaluated",5)
# }
Run the code above in your browser using DataLab