Calculate emission reductions (Equation 4)

Implements Equation (4) of AMS-I.C 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

Tibble containing emission reductions in tCO2e.

Examples

baseline <- tibble::tibble(facility_id = c("A", "B"), baseline_emissions_tco2e = c(120, 155))
project <- tibble::tibble(facility_id = c("A", "B"), project_emissions_tco2e = c(5, 6))
calculate_emission_reductions(baseline, project)
#> # A tibble: 2 × 4
#>   facility_id baseline_emissions_tco2e project_emissions_tco2e
#>   <chr>                          <dbl>                   <dbl>
#> 1 A                                120                       5
#> 2 B                                155                       6
#> # ℹ 1 more variable: emission_reductions_tco2e <dbl>