Composes the equation-level helpers to compute emission reductions for datasets describing electricity supplied to captive and mini-grid consumers.

estimate_emission_reductions_ams_if(supply_data, baseline_emission_factor, project_emission_factor = 0, group_cols = NULL)

Arguments

supply_data

Tibble containing electricity supply observations in MWh.

baseline_emission_factor

Baseline emission factor in tCO2e/MWh.

project_emission_factor

Optional project emission factor in tCO2e/MWh.

group_cols

Optional character vector specifying grouping columns in supply_data.

Value

A tibble with baseline electricity, baseline emissions, project emissions, and emission reductions.

Examples

supply <- tibble::tibble(grid_id = c("A", "B"), electricity_mwh = c(900, 750))
estimate_emission_reductions_ams_if(supply, baseline_emission_factor = 0.72)
#> # A tibble: 1 × 4
#>   baseline_electricity_mwh baseline_emissions_tco2e project_emissions_tco2e
#>                      <dbl>                    <dbl>                   <dbl>
#> 1                     1650                     1188                       0
#> # ℹ 1 more variable: emission_reductions_tco2e <dbl>