Estimates project emissions associated with auxiliary fossil fuel or electric backup heating that supplements the solar water heating system.

calculate_project_emissions_auxiliary(
  auxiliary_data,
  energy_col = "auxiliary_energy_mwh",
  emission_factor = 0,
  group_cols = NULL,
  output_col = "project_emissions_tco2e"
)

Arguments

auxiliary_data

Tibble containing auxiliary energy observations.

energy_col

Column name with auxiliary energy in MWhth.

emission_factor

Project emission factor in tCO2e/MWhth.

group_cols

Optional grouping columns.

output_col

Name of the resulting project emission column.

Value

A tibble with aggregated auxiliary emissions in tCO2e.

Examples

auxiliary <- tibble::tibble(site_id = c("A", "B"), auxiliary_energy_mwh = c(50, 80))
calculate_project_emissions_auxiliary(auxiliary, emission_factor = 0.18)
#> # A tibble: 1 × 1
#>   project_emissions_tco2e
#>                     <dbl>
#> 1                    23.4