tabFarsDead function

Extract ratio of ratios estimate of safety device effectiveness, from the Fars dataset.

Safety devices may be airbags or seatbelts. For airbags, alternatives are to use airbag installed or airbag deployed as the criterion. Ratio of driver deaths to passenger deaths are calculated for driver with device and for driver without device, in both cases for passenger without device, and the ratio of these ratios calculated.

tabFarsDead(dset=gamclass::FARS, fatal = 4, 
            restrict=expression(age>=16&age<998&inimpact%in%c(11,12,1)),
            statistics = c("airbagAvail", "airbagDeploy", "Restraint"))

Arguments

• dset: data frame containing data
• fatal: numeric: 4 for fatal injury, or c(3,4) for incapacitating or fatal injury
• statistics: Vector of character: ratio of rates variables that will be tabulated
• restrict: Expression restricting values as specified

Details

Note that the airbag deployed statistic is not a useful measure of airbag effectiveness. At its most effective, the airbag will deploy only when the accident is sufficiently serious that deployment will reduce the risk of serious injury and/or accident. The with/without deployment comparison compares, in part, serious accidents with less serious accidents.

Returns

A list with elements - airbagAvail: a multiway table with margins yrs, airbagAvail, and a third margin with levels P_injury, D_injury, tot, and prop

• airbagDeploy: a multiway table with margins yrs, airbagDeploy, and a third margin with levels P_injury, D_injury, tot, and prop

• Restraint: a multiway table with margins yrs, Restraint, and a third margin injury with levels P_injury, D_injury, tot, and prop

Author(s)

John Maindonald

Examples

tabDeaths <- tabFarsDead()