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.
dvcat
1-9km/h
, 10-24
, 25-39
, 40-54
,
55+
weight
dead
alive
dead
airbag
none
airbag
seatbelt
none
belted
frontal
sex
f
m
ageOFocc
yearacc
yearVeh
abcat
deploy
nodeploy
unavail
occRole
driver
pass
deploy
injSeverity
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
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. 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)