# NOT RUN {
x<-comm.simul(S=20, J=30)
str(x$final.community)
w<-comm.sampling(x$final.community,type="full")
str(w)
w.rarefied<-comm.sampling(x$final.community,type="random",size=10)
rowSums(w)
rowSums(w.rarefied)
# }
Run the code above in your browser using DataLab