# NOT RUN {
comm <- rbind(c(1,1,1,1,1), c(1,1,1,1,1), c(0,0,1,1,1),c(0,0,1,1,1))
rownames(comm) = c("Community_1","Community_2","Community_3","Community_4")
colnames(comm) = c("Sp_1","Sp_2","Sp_3","Sp_4", "Sp_5")
trait <- cbind(c(2.2,4.4,6.1,8.3,3),c(0.5,1,0.5,0.4,4),c(0.7,1.2,0.5,0.4,5),c(0.7,2.2,0.5,0.3,6))
rownames(trait) = c("Sp_1","Sp_2","Sp_3","Sp_4","Sp_5")
colnames(trait) = c("Trait_1","Trait_2","Trait_3","Trait_4")
hull.beta(comm = comm, trait = trait, return.hull = FALSE)
# }
Run the code above in your browser using DataLab