nassCDS
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. Farmer, C.H. 2006. Another look at Meyer and Finney's
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)
Run the code above in your browser using DataLab