data("herons.group")
if (FALSE) {
output.fn <- CountsEPPM(number.attempts ~ 0 + group,
herons.group, model.type = 'mean only', model.name = 'Poisson')
output.fn.one <- CountsEPPM(number.attempts ~ 0 + group,
herons.group, model.type = 'mean only',
model.name = 'negative binomial')
waldtest(output.fn, output.fn.one, test = c("Chisq", "F"), vcov = vcov)
}
Run the code above in your browser using DataLab