Learn R Programming

DAAGxtras (version 0.6-9)

nassCDS: Airbag and other influences on accident fatalities

Description

US data, for 1997-2002, from police-reported car crashes in which there is a harmful event (people or property), and from which at least one vehicle was towed. Data are restricted to front-seat occupants, include only a subset of the variables recorded, and are restricted in other ways also.

Usage

nassCDS

Arguments

source

http://www.stat.uga.edu/~mmeyer/airbags.htm\ ftp://ftp.nhtsa.dot.gov/nass/\ See also http://www.maths.anu.edu.au/~johnm/datasets/airbags

Details

Data were collected according to a multi-stage sampling scheme. Hence the need to weight observations by the inverse of the selection probability, called the national inflation factor (national) in the original data from NASS. These data include a subset of the variables from the nass9702cor dataset. Variables that are coded here as factors are coded as numeric values in that dataset.

References

Meyer, M.C. and Finney, T. (2005): Who wants airbags?. Chance 18:3-16.

Farmer, C.H. 2006. Another look at Meyer and Finney's `Who wants airbags?'. Chance 19:15-22.

Meyer, M.C. 2006. emph{Commentary on "Another look at Meyer and Finney's `Who wants airbags?'"}. Chance 19:23-24.

Examples

Run this code
data(nassCDS)
xtabs(weight ~ dead + airbag, data=nassCDS)
xtabs(weight ~ dead + airbag + seatbelt + dvcat, data=nassCDS)
tab <- xtabs(weight ~ dead + abcat, data=nassCDS,
             subset=dvcat=="25-39"&frontal==0)[, c(3,1,2)]
round(tab[2, ]/apply(tab,2,sum)*100,2)

Run the code above in your browser using DataLab