Calculate emission reductions (Equation 4)

Implements Equation (4) of AMS-I.A by subtracting project emissions from baseline emissions.

calculate_emission_reductions(
  baseline_emissions,
  project_emissions,
  baseline_col = "baseline_emissions_tco2e",
  project_col = "project_emissions_tco2e",
  output_col = "emission_reductions_tco2e"
)

Arguments

baseline_emissions

Tibble containing baseline emissions, typically the output from calculate_baseline_emissions().

project_emissions

Tibble containing project emissions, typically the output from calculate_project_emissions().

baseline_col

Name of the baseline emission column.

project_col

Name of the project emission column.

output_col

Name of the resulting emission reduction column.

Value

A tibble containing emission reductions in tCO2e.

Examples

baseline <- tibble::tibble(system_id = c("A", "B"), baseline_emissions_tco2e = c(100, 120))
project <- tibble::tibble(system_id = c("A", "B"), project_emissions_tco2e = c(0, 0))
calculate_emission_reductions(baseline, project)
#> # A tibble: 2 × 4
#>   system_id baseline_emissions_t…¹ project_emissions_tc…² emission_reductions_…³
#>   <chr>                      <dbl>                  <dbl>                  <dbl>
#> 1 A                            100                      0                    100
#> 2 B                            120                      0                    120
#> # ℹ abbreviated names: ¹​baseline_emissions_tco2e, ²​project_emissions_tco2e,
#> #   ³​emission_reductions_tco2e