Calculate baseline emissions for AMS-I.J

Applies Equation (2) of AMS-I.J by multiplying useful thermal output by the baseline emission factor representing displaced fossil fuel or electric water heating.

calculate_baseline_emissions(useful_output, baseline_emission_factor, output_col = "baseline_emissions_tco2e")

Arguments

useful_output

Tibble produced by calculate_useful_thermal_output().

baseline_emission_factor

Baseline emission factor in tCO2e/MWhth.

output_col

Name of the resulting emission column.

Value

The input tibble with a baseline emission column in tCO2e.

Examples

output <- tibble::tibble(useful_thermal_output_mwh = c(500, 620))
calculate_baseline_emissions(output, baseline_emission_factor = 0.25)
#> # A tibble: 2 × 2
#>   useful_thermal_output_mwh baseline_emissions_tco2e
#>                       <dbl>                    <dbl>
#> 1                       500                      125
#> 2                       620                      155