Calculate emission reductions for AMS-I.D

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

project_emissions

Tibble containing project emissions, typically the output of 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(grid_id = c("A", "B"), baseline_emissions_tco2e = c(280, 360))
project <- tibble::tibble(grid_id = c("A", "B"), project_emissions_tco2e = c(10, 12))
calculate_emission_reductions(baseline, project)
#> # A tibble: 2 × 4
#>   grid_id baseline_emissions_tco2e project_emissions_tc…¹ emission_reductions_…²
#>   <chr>                      <dbl>                  <dbl>                  <dbl>
#> 1 A                            280                     10                    270
#> 2 B                            360                     12                    348
#> # ℹ abbreviated names: ¹​project_emissions_tco2e, ²​emission_reductions_tco2e