Estimate emission reductions under AMS-I.J

Composes the AMS-I.J equation helpers to estimate emission reductions for solar water heating datasets.

estimate_emission_reductions_ams_ij(
  thermal_data,
  baseline_emission_factor,
  auxiliary_emission_factor = 0,
  group_cols = NULL,
  useful_energy_col = "useful_heat_mwh",
  auxiliary_energy_col = "auxiliary_energy_mwh"
)

Arguments

thermal_data

Tibble containing useful thermal output and optional auxiliary energy.

baseline_emission_factor

Baseline emission factor in tCO2e/MWhth.

auxiliary_emission_factor

Auxiliary system emission factor in tCO2e/MWhth.

group_cols

Optional grouping columns.

useful_energy_col

Column storing useful thermal output.

auxiliary_energy_col

Column storing auxiliary energy, or NULL.

Value

Tibble with baseline emissions, project emissions, and emission reductions.

Examples

data <- tibble::tibble(
  site_id = c("A", "B"),
  useful_heat_mwh = c(500, 420),
  auxiliary_energy_mwh = c(40, 25)
)
estimate_emission_reductions_ams_ij(
  data,
  baseline_emission_factor = 0.22,
  auxiliary_emission_factor = 0.19,
  group_cols = "site_id"
)
#> # A tibble: 2 × 5
#>   site_id useful_thermal_output_…¹ baseline_emissions_t…² project_emissions_tc…³
#>   <chr>                      <dbl>                  <dbl>                  <dbl>
#> 1 A                            500                  110                     7.6 
#> 2 B                            420                   92.4                   4.75
#> # ℹ abbreviated names: ¹​useful_thermal_output_mwh, ²​baseline_emissions_tco2e,
#> #   ³​project_emissions_tco2e
#> # ℹ 1 more variable: emission_reductions_tco2e <dbl>