data(polio)
## marginal negative binomial model with ARMA(2,1) errors
m <- gcmr( y ~ . , data = polio, marginal = negbin.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