Calculate emission reductions (Equation 4) — calculate_emission

Implements Equation (4) of AMS-II.C by multiplying energy savings by the relevant emission factor for the displaced energy carrier.

calculate_emission_reductions(
  energy_savings,
  savings_col = "energy_savings_mwh",
  emission_factor,
  output_col = "emission_reductions_tco2e"
)

Arguments

energy_savings: Tibble produced by calculate_energy_savings().
savings_col: Column containing energy savings in MWh.
emission_factor: Emission factor in tonnes CO2e per MWh (scalar or vector).
output_col: Name of the resulting emission reduction column.

Value

A tibble with emission reductions in tCO2e.

Examples

savings <- tibble::tibble(site = c("A", "B"), energy_savings_mwh = c(22, 10))
calculate_emission_reductions(savings, emission_factor = 0.65)
#> Error in calculate_emission_reductions(savings, emission_factor = 0.65): unused argument (emission_factor = 0.65)