Calculate project building emissions (Equation 2)

Equation (2) of AMS-II.E quantifies project emissions from residual thermal fuel use and electricity demand after efficiency or fuel switching measures.

calculate_project_building_emissions(
  project_data,
  thermal_energy_col = "project_thermal_energy_gj",
  thermal_emission_factor_col = "project_thermal_emission_factor_tco2_per_gj",
  electricity_col = "project_electricity_mwh",
  electricity_emission_factor_col = "project_electricity_emission_factor_tco2_per_mwh",
  group_cols = NULL,
  output_col = "project_emissions_tco2e"
)

Arguments

project_data

A tibble describing monitored project energy use.

thermal_energy_col

Column storing project thermal energy demand (GJ). Set to NULL to omit thermal emissions.

thermal_emission_factor_col

Column storing project thermal emission factors (tCO2e per GJ).

electricity_col

Column storing project electricity consumption (MWh).

electricity_emission_factor_col

Column storing project electricity emission factors (tCO2e per MWh).

group_cols

Optional character vector of grouping variables to retain.

output_col

Name of the resulting emission column.

Value

A tibble with grouped project emissions in tCO2e.

Examples

project <- tibble::tibble(
  building_id = c("Office_A", "Office_B"),
  project_thermal_energy_gj = c(210, 195),
  project_thermal_emission_factor_tco2_per_gj = c(0.034, 0.031),
  project_electricity_mwh = c(86, 74),
  project_electricity_emission_factor_tco2_per_mwh = c(0.62, 0.62)
)
calculate_project_building_emissions(project, group_cols = "building_id")
#> # A tibble: 2 × 2
#>   building_id project_emissions_tco2e
#>   <chr>                         <dbl>
#> 1 Office_A                       60.5
#> 2 Office_B                       51.9