Estimate emission reductions (Equation 4)

Equation (4) combines baseline emissions, project emissions, and leakage to produce annual emission reductions for AMS-II.D project activities.

estimate_emission_reductions(
  baseline_emissions,
  project_emissions,
  leakage_emissions = NULL,
  baseline_col = "baseline_emissions_tco2e",
  project_col = "project_emissions_tco2e",
  leakage_col = "leakage_emissions_tco2e",
  group_cols = NULL,
  output_col = "emission_reductions_tco2e"
)

Arguments

baseline_emissions

Tibble produced by calculate_baseline_fossil_emissions.

project_emissions

Tibble produced by calculate_project_fossil_emissions.

leakage_emissions

Tibble produced by calculate_leakage_emissions.

baseline_col

Column storing baseline emissions in the baseline tibble.

project_col

Column storing project emissions in the project tibble.

leakage_col

Column storing leakage emissions in the leakage tibble.

group_cols

Character vector of columns used for joining the tables.

output_col

Name of the resulting emission reduction column.

Value

A tibble with the union of grouping columns and an emission reduction column.

Examples

baseline <- tibble::tibble(unit = "Kiln", baseline_emissions_tco2e = 120)
project <- tibble::tibble(unit = "Kiln", project_emissions_tco2e = 72)
leakage <- tibble::tibble(unit = "Kiln", leakage_emissions_tco2e = 5)
estimate_emission_reductions(baseline, project, leakage, group_cols = "unit")
#> # A tibble: 1 × 5
#>   unit  emission_reductions_tco2e baseline_emissions_tc…¹ project_emissions_tc…²
#>   <chr>                     <dbl>                   <dbl>                  <dbl>
#> 1 Kiln                         43                     120                     72
#> # ℹ abbreviated names: ¹​baseline_emissions_tco2e, ²​project_emissions_tco2e
#> # ℹ 1 more variable: leakage_emissions_tco2e <dbl>