# \donttest{
data("ropespores.case")
output.fn <- BinaryEPPM(data = ropespores.case,
number.spores / number.tested ~ 1 + offset(logdilution),
model.type = 'p only', model.name = 'binomial')
output.fn.one <- BinaryEPPM(data = ropespores.case,
number.spores / number.tested ~ 1 + offset(logdilution),
model.type = 'p only', model.name = 'beta binomial')
waldtest.BinaryEPPM(output.fn, output.fn.one, test = c("Chisq", "F"),
vcov = vcov)
# }
Run the code above in your browser using DataLab