# NOT RUN {
# load data
data(sim_phylogeny)
# generate species by branch matrix
m <- branch_matrix(sim_phylogeny)
# plot data
# }
# NOT RUN {
par(mfrow = c(1,2))
plot(sim_phylogeny, main = "phylogeny")
plot(raster(as.matrix(m)), main = "branch matrix", axes = FALSE,
box = FALSE)
# }
Run the code above in your browser using DataLab