## Simulation example of Czado et al. (2009, Section 2.4)
set.seed(321) # different from the paper
x <- rnbinom(200, mu = 5, size = 2)
op <- par(mfrow=c(1,3))
pit(x, function (x) ppois(x, lambda=5), J=10, relative=TRUE, plot=list(ylim=c(0,3)))
pit(x, function (x) pnbinom(x, mu=5, size=2), J=10, relative=TRUE, plot=list(ylim=c(0,3)))
pit(x, function (x) pnbinom(x, mu=5, size=1), J=10, relative=TRUE, plot=list(ylim=c(0,3)))
par(op)
Run the code above in your browser using DataLab