calculate_baseline_building_emissions.RdEquation (1) of AMS-II.E consolidates baseline greenhouse gas emissions from thermal fuels and electricity consumption in buildings.
calculate_baseline_building_emissions(
baseline_data,
thermal_energy_col = "baseline_thermal_energy_gj",
thermal_emission_factor_col = "baseline_thermal_emission_factor_tco2_per_gj",
electricity_col = "baseline_electricity_mwh",
electricity_emission_factor_col = "baseline_electricity_emission_factor_tco2_per_mwh",
group_cols = NULL,
output_col = "baseline_emissions_tco2e"
)A tibble describing counterfactual building energy use.
Column storing baseline thermal energy demand (GJ). Set to NULL when thermal fuels are not part of the baseline scenario.
Column storing thermal emission factors (tCO2e per GJ). Required when thermal_energy_col is supplied.
Column storing baseline electricity consumption (MWh). Set to NULL to omit electricity emissions.
Column storing electricity emission factors (tCO2e per MWh). Required when electricity_col is supplied.
Optional character vector of grouping variables to retain in the output.
Name of the resulting emission column.
A tibble with grouped baseline emissions in tCO2e.
baseline <- tibble::tibble(
building_id = c("Office_A", "Office_B"),
baseline_thermal_energy_gj = c(420, 380),
baseline_thermal_emission_factor_tco2_per_gj = c(0.056, 0.052),
baseline_electricity_mwh = c(120, 95),
baseline_electricity_emission_factor_tco2_per_mwh = c(0.62, 0.62)
)
calculate_baseline_building_emissions(baseline, group_cols = "building_id")
#> # A tibble: 2 × 2
#> building_id baseline_emissions_tco2e
#> <chr> <dbl>
#> 1 Office_A 97.9
#> 2 Office_B 78.7