Smoking, Alcohol and (O)esophageal Cancer
Usage
data(esoph)
Format
data frame with records for 88 age/alcohol/tobacco combinations.
[,1] | "agegp" | Age group | 1 25-34 years |
| | | 2 35-44 |
| | | 3 45-54 |
| | | 4 55-64 |
| | | 5 65-74 |
| | | 6 75+ |
[,2] | "alcgp" | Alcohol consumption | 1 0-39 gm/day |
| | | 2 40-79 |
| | | 3 80-119 |
| | | 4 120+ |
[,3] | "tobgp" | Tobacco consumption | 1 0- 9 gm/day |
| | | 2 10-19 |
| | | 3 20-29 |
| | | 4 30+ |
[,4] | "ncases" | Number of cases | |
[,5] | "ncontrols" | Number of subjects | |
Description
Data from a case-control study of (o)esophageal cancer in
Ile-et-Vilaine, France.Author(s)
Thomas LumleySource
Breslow and Day (1980).
"Statistical Methods in Cancer Research.
1: The Analysis of Case-control studies"; IARC Lyon.Examples
data(esoph)
summary(esoph)
## effects of alcohol, tobacco and interaction, age-adjusted
model1 <- glm(cbind(ncases, ncontrols) ~ agegp + tobgp * alcgp,
data = esoph, family = binomial())
anova(model1)
## Try a linear effect of alcohol and tobacco
model2 <- glm(cbind(ncases, ncontrols) ~ agegp + codes(tobgp) + codes(alcgp),
data = esoph, family = binomial())
summary(model2)