data(polio)
## marginal negative binomial model with ARMA(2,1) errors
m <- gcmr(y~., data=polio, marginal=nb.marg(), cormat=arma.cormat(2,1),
options=list(seed=71271, nrep=100))
## randomized quantile residuals
res <- residuals(m)
## normal probability plot
qqnorm(res)
qqline(res)
## autocorrelation plot
acf(res)Run the code above in your browser using DataLab