Calculate emission reductions (Equation 4)

Implements Equation (4) of AMS-I.B 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("pump-1", "pump-2"), baseline_emissions_tco2e = c(120, 150))
project <- tibble::tibble(system_id = c("pump-1", "pump-2"), project_emissions_tco2e = c(5, 10))
calculate_emission_reductions(baseline, project)
#> # A tibble: 2 × 4
#>   system_id baseline_emissions_t…¹ project_emissions_tc…² emission_reductions_…³
#>   <chr>                      <dbl>                  <dbl>                  <dbl>
#> 1 pump-1                       120                      5                    115
#> 2 pump-2                       150                     10                    140
#> # ℹ abbreviated names: ¹​baseline_emissions_tco2e, ²​project_emissions_tco2e,
#> #   ³​emission_reductions_tco2e