## EXAMPLE 1:
## Lip cancer in Scotland, 1975 to 1980:
data(epi.SClip)
obs <- epi.SClip$cases
pop <- epi.SClip$population
## Calculate the expected number of lip cancer cases per district:
exp <- (sum(obs) / sum(pop)) * pop
## Bohning's test:
epi.bohning(obs, exp, alpha = 0.05)
## The test statistic was 53.33. The associated P value was <0.01. We reject
## the null hypothesis of no over dispersion and accept the null hypothesis
## concluding that the lip cancer data are over dispersed.
Run the code above in your browser using DataLab