| CoalMiners {vcd} | R Documentation |
Data from Ashford & Snowden (1970) given by Agresti (1990) on the association between two pulmonary conditions, breathlessness and wheeze, in a large sample of coal miners.
data(CoalMiners)
A 3-dimensional array resulting from cross-tabulating variables for 16,330 coal miners. The variables and their levels are as follows:
| No | Name | Levels |
| 1 | Wheeze | W, NoW |
| 2 | Breathlessness | B, NoB |
| 3 | Age | 25-29, 30-34, ..., 60-64 |
Michael Friendly (2000), Visualizing Categorical Data, pages 82–83, 319–322.
A. Agresti (1990), Categorical Data Analysis. Wiley-Interscience, New York.
J. R. Ashford & R. D. Snowdon (1970), Multivariate probit analysis, Biometrics, 26, 535–546.
M. Friendly (2000), Visualizing Categorical Data. SAS Institute, Cary, NC.
data(CoalMiners)
## Fourfold display, both margins equated
fourfold(CoalMiners, mfcol = c(2,4))
## Log Odds Ratio Plot
summary(l <- oddsratio(CoalMiners))
g <- seq(25, 60, by = 5)
plot(l,
xlab = "Age Group",
main = "Breathlessness and Wheeze in Coal Miners")
m <- lm(l ~ g + I(g^2))
lines(fitted(m), col = "red")
## Fourfold display, strata equated
fourfold(CoalMiners, std = "ind.max", mfcol = c(2,4))