Calculate emission reductions

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

project_emissions

Tibble containing project emissions and identifiers.

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(site_id = c("A", "B"), baseline_emissions_tco2e = c(95, 110))
project <- tibble::tibble(site_id = c("A", "B"), project_emissions_tco2e = c(5, 8))
calculate_emission_reductions(baseline, project)
#> # A tibble: 2 × 4
#>   site_id baseline_emissions_tco2e project_emissions_tc…¹ emission_reductions_…²
#>   <chr>                      <dbl>                  <dbl>                  <dbl>
#> 1 A                             95                      5                     90
#> 2 B                            110                      8                    102
#> # ℹ abbreviated names: ¹​project_emissions_tco2e, ²​emission_reductions_tco2e