CoalMinersR Documentation

Breathlessness and Wheeze in Coal Miners

Description

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.

Usage

data("CoalMiners")

Format

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

Source

Michael Friendly (2000), Visualizing Categorical Data, pages 82–83, 319–322.

References

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.

Examples

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