Calculate Safety Performance Rates (SDG 8.8)

Computes standard mining safety frequency rates per one million hours worked, following the ICMM safety data reporting convention and GRI 403-9: Total Recordable Injury Frequency Rate (TRIFR), Lost Time Injury Frequency Rate (LTIFR), and Fatality Frequency Rate.

Usage

calculate_safety_performance(
  hours_worked,
  recordable_injuries,
  lost_time_injuries,
  fatalities = 0
)

Arguments

hours_worked

Numeric. Total exposure hours. Must be > 0.

recordable_injuries

Numeric. Count of recordable injuries (includes lost-time injuries).

lost_time_injuries

Numeric. Count of lost-time injuries.

fatalities

Numeric. Count of work-related fatalities. Default 0.

Value

A named list with metric, trifr, ltifr, fatality_rate, and hours_worked_millions.

Details

Each rate is calculated as: $$(events / hours\_worked) \times 1{,}000{,}000$$

Examples

calculate_safety_performance(
  hours_worked = 6400000,
  recordable_injuries = 32,
  lost_time_injuries = 10
)
#> $metric
#> [1] "SDG 8.8 - Occupational Safety (per 1M hours, ICMM convention)"
#> 
#> $trifr
#> [1] 5
#> 
#> $ltifr
#> [1] 1.562
#> 
#> $fatality_rate
#> [1] 0
#> 
#> $hours_worked_millions
#> [1] 6.4
#>