# load data
sim_phylogeny <- get_sim_phylogeny()
# generate species by branch matrix
m <- branch_matrix(sim_phylogeny)
# plot data
if (FALSE) {
plot(sim_phylogeny, main = "phylogeny")
Matrix::image(m, main = "branch matrix")
}
Run the code above in your browser using DataLab