## Generate a random matrix of counts
counts <- matrix(rPT(n=2000, a=0.5, mu=10, D=5), nrow=20)
## Perform the goodness-of-fit tests for every row in the matrix
chi2gof <- gofTest(counts)
## Not run:
# qqchisq(chi2gof)
# ## End(Not run)
Run the code above in your browser using DataLab