# NOT RUN {
comm <- matrix(c(1,2,0,0,0,1,1,0,0,0,0,2,2,0,0,0,0,1,1,1), nrow = 4, byrow = TRUE)
tree <- hclust(dist(c(1:5), method="euclidean"), method="average")
contribution(tree = tree)
contribution(comm, tree)
contribution(comm, tree, FALSE)
contribution(comm, tree, abund = FALSE, relative = FALSE)
# }
Run the code above in your browser using DataCamp Workspace