estimate_emission_reductions_ams_iih.RdChains the AMS-II.H equation helpers to convert decentralized baseline and centralized project monitoring data into net emission reductions. Baseline and project datasets describe fuel use, emission factors, and optional useful output alongside auxiliary electricity and leakage estimates.
estimate_emission_reductions_ams_iih(
baseline_data,
project_data,
leakage_data = NULL,
group_cols = NULL,
baseline_fuel_consumption_col = "baseline_fuel_use_gj",
baseline_emission_factor_col = "baseline_emission_factor_tco2_per_gj",
baseline_useful_output_col = "baseline_useful_output_gj",
project_fuel_consumption_col = "project_fuel_use_gj",
project_emission_factor_col = "project_emission_factor_tco2_per_gj",
project_useful_output_col = "project_useful_output_gj",
project_aux_electricity_col = "project_auxiliary_electricity_mwh",
project_electricity_emission_factor_col = "project_electricity_emission_factor_tco2_per_mwh",
leakage_col = "leakage_emissions_tco2e"
)Tibble containing baseline monitoring observations.
Tibble containing project monitoring observations.
Optional tibble containing leakage emissions in tCO2e.
Optional character vector of grouping columns shared across the inputs.
Column storing baseline fuel use (GJ).
Column storing baseline emission factors (tCO2e/GJ).
Optional column storing baseline useful output (GJ).
Column storing project fuel use (GJ).
Column storing project emission factors (tCO2e/GJ).
Optional column storing project useful output (GJ).
Optional column storing project auxiliary electricity use (MWh).
Column storing emission factors for auxiliary electricity (tCO2e/MWh).
Column storing leakage emissions (tCO2e) when leakage_data is supplied.
A tibble containing baseline emissions, project central and auxiliary emissions, leakage, specific energy diagnostics (when available), and net emission reductions.
baseline <- tibble::tibble(
facility = c("Line_A", "Line_B"),
baseline_fuel_use_gj = c(4200, 3150),
baseline_emission_factor_tco2_per_gj = 0.071,
baseline_useful_output_gj = c(3600, 2700)
)
project <- tibble::tibble(
facility = c("Line_A", "Line_B"),
project_fuel_use_gj = c(3000, 2250),
project_emission_factor_tco2_per_gj = 0.068,
project_useful_output_gj = c(2880, 2160),
project_auxiliary_electricity_mwh = c(220, 165),
project_electricity_emission_factor_tco2_per_mwh = 0.62
)
estimate_emission_reductions_ams_iih(
baseline,
project,
group_cols = "facility"
)
#> # A tibble: 2 × 9
#> facility baseline_emissions_tc…¹ baseline_specific_en…² project_central_emis…³
#> <chr> <dbl> <dbl> <dbl>
#> 1 Line_A 298. 1.17 204
#> 2 Line_B 224. 1.17 153
#> # ℹ abbreviated names: ¹baseline_emissions_tco2e,
#> # ²baseline_specific_energy_gj_per_gj, ³project_central_emissions_tco2e
#> # ℹ 5 more variables: project_specific_energy_gj_per_gj <dbl>,
#> # project_auxiliary_emissions_tco2e <dbl>, project_emissions_tco2e <dbl>,
#> # leakage_emissions_tco2e <dbl>, emission_reductions_tco2e <dbl>