Chain the AMS-II.Q equation helpers to produce baseline emissions, project grid and onsite emissions, leakage, and emission reductions for commercial building projects.

estimate_emission_reductions_ams_iiq(
  baseline_data,
  project_data,
  leakage_data = NULL,
  group_cols = NULL,
  baseline_energy_consumption_col = "baseline_energy_use_mwh",
  baseline_emission_factor_col = "baseline_emission_factor_tco2_per_mwh",
  baseline_service_output_col = "baseline_service_output_mwh",
  project_energy_consumption_col = "project_energy_use_mwh",
  project_emission_factor_col = "project_emission_factor_tco2_per_mwh",
  project_service_output_col = "project_service_output_mwh",
  project_onsite_energy_col = "project_onsite_energy_gj",
  project_onsite_emission_factor_col = "project_onsite_emission_factor_tco2_per_gj",
  leakage_col = "leakage_emissions_tco2e"
)

Arguments

baseline_data

Tibble containing baseline monitoring observations.

project_data

Tibble containing project monitoring observations.

leakage_data

Optional tibble containing leakage emissions (tCO2e).

group_cols

Optional character vector of grouping columns shared across inputs.

baseline_energy_consumption_col

Column storing baseline energy use.

baseline_emission_factor_col

Column storing baseline emission factors.

baseline_service_output_col

Optional column storing baseline service output.

project_energy_consumption_col

Column storing project grid energy use.

project_emission_factor_col

Column storing project emission factors.

project_service_output_col

Optional column storing project service output.

project_onsite_energy_col

Optional column storing onsite energy use.

project_onsite_emission_factor_col

Column storing emission factors for onsite energy.

leakage_col

Column storing leakage emissions when leakage_data is supplied.

Value

A tibble containing baseline emissions, project emissions, leakage, and emission reductions.

Examples

baseline <- tibble::tibble(
  building_id = c("A", "B"),
  baseline_energy_use_mwh = c(800, 560),
  baseline_emission_factor_tco2_per_mwh = 0.62,
  baseline_service_output_mwh = c(720, 510)
)
project <- tibble::tibble(
  building_id = c("A", "B"),
  project_energy_use_mwh = c(520, 380),
  project_emission_factor_tco2_per_mwh = 0.58,
  project_service_output_mwh = c(720, 510),
  project_onsite_energy_gj = c(120, 40),
  project_onsite_emission_factor_tco2_per_gj = 0.05
)
estimate_emission_reductions_ams_iiq(baseline, project, group_cols = "building_id")
#> # A tibble: 2 × 9
#>   building_id baseline_emissions_tco2e baseline_energy_intensity
#>   <chr>                          <dbl>                     <dbl>
#> 1 A                               496                       1.11
#> 2 B                               347.                      1.10
#> # ℹ 6 more variables: project_grid_emissions_tco2e <dbl>,
#> #   project_energy_intensity <dbl>, project_onsite_emissions_tco2e <dbl>,
#> #   project_emissions_tco2e <dbl>, leakage_emissions_tco2e <dbl>,
#> #   emission_reductions_tco2e <dbl>