CoalMiners | 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))