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)