# Generate 500 random counts following a Poisson Inverse Gaussian
# distribution with mean = 20 and dispersion = 5
randomCounts <- rPT(n = 500, mu = 20, D = 5, a = 0.5)
xx <- compareCountDist(randomCounts, plot=FALSE)
xx
Run the code above in your browser using DataLab