| nassCDS {DAAGxtras} | R Documentation |
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.
nassCDS
A data frame with 26217 observations on the following 14 variables.
dvcat1-9km/h, 10-24, 25-39, 40-54,
55+
weightdeadalive deadairbagnone airbagseatbeltnone beltedfrontalsexf mageOFoccyearaccyearVehabcatdeploy nodeploy
unavailoccRoledriver passdeployinjSeverity
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.
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
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.
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)