data("herons.group")
output.fn <- CountsEPPM(number.attempts ~ 0 + group,
herons.group, model.type = 'mean only', model.name = 'Poisson')
predict(output.fn, type = "response")
predict(output.fn, type = "linear.predictor.mean")
Run the code above in your browser using DataLab