tabFarsDead: Extract and plot ratio of ratios estimate of safety device effectiveness

Description

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.

Usage

tabFarsDead(data = FARS, restrict =
"age>=16&age

Arguments

data

Data frame, which must include among its columns variables year, variables noted in statistics plus corresponding variables for drivers, variables that appear in restrict, the variable injury

restrict

text: an expression that restricts observations considered

fatal

numeric: 4 for fatal injury, or c(3,4) for incapacitating or fatal injury

statistics

Vector of character: ratio of ratios variables that wil be plotted

Value

A list with elements
airbagAvaila multiway table with margins yrs, airbagAvail, and a third margin with levels P_injury, D_injury, tot, and prop
airbagDeploya multiway table with margins yrs, airbagDeploy, and a third margin with levels P_injury, D_injury, tot, and prop
Restrainta multiway table with margins yrs, Restraint, and a third margin injury with levels P_injury, D_injury, tot, and prop

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.

Examples

Run this code

tabDeaths <- tabFarsDead()