# tabFarsDead: Extract ratio of ratios estimate of safety device... In gamclass: Functions and Data for a Course on Modern Regression and Classification

## 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, and the ratio of these ratios calculated.

## Usage

 ```1 2 3``` ```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.

## Value

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`

John Maindonald

## Examples

 `1` ```tabDeaths <- tabFarsDead() ```

### Example output

```
```

gamclass documentation built on Nov. 14, 2020, 1:07 a.m.