# visualize the density function
plot(dpoilog(0:100, mu=1.0, sig=1.0), type='o')
# visualize the empirical distribution of a random sample of 1000 OTUs
hist(rpoilog(1000, mu=1.0, sig=1.0, condS=TRUE))
Run the code above in your browser using DataLab