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

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(restrict =
"age>=16&age

Arguments

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()