Calculate total annual micromort exposure from a list of activities.
Arguments
- activities
Named numeric vector of activity frequencies per year. Names should match activity names in
load_acute_risks().- age
Optional age for baseline risk calculation
Value
A tibble with risk budget breakdown including:
- activity
Activity name
- frequency
Times per year
- micromorts_per
Micromorts per occurrence
- annual_micromorts
Total annual micromorts
- pct_of_total
Percentage of total risk budget
Examples
# Calculate annual risk from recreational activities
annual_risk_budget(c(
"Skydiving (US)" = 10,
"Scuba diving, trained" = 20,
"Running a marathon" = 2
), age = 35)
#> Warning: Activity not found: Scuba diving, trained
#> # A tibble: 5 × 5
#> activity frequency micromorts_per annual_micromorts pct_of_total
#> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 Baseline (age 35) 365 3 1095 92.1
#> 2 Skydiving (US) 10 8 80 6.7
#> 3 Scuba diving, trained 20 NA NA NA
#> 4 Running a marathon 2 7 14 1.2
#> 5 TOTAL NA NA 1189 100
