comat <- matrix(sample(0:1000, size = 50, replace = TRUE,
prob = 1 / 1:1001), 5, 10)
rownames(comat) <- paste0("Site", 1:5)
colnames(comat) <- paste0("Species", 1:10)
if (FALSE) {
beta_div <- betapart::beta.pair.abund(comat)
betapart_to_bioregion(beta_div)
}
Run the code above in your browser using DataLab