Chains the AMS-III.A equation helpers to convert baseline fertilizer use, project monitoring data, and leakage observations into emission reductions.

estimate_emission_reductions_ams_iiia(baseline_data, project_data, leakage_data = NULL,
  group_cols = NULL,
  baseline_fertilizer_col = "baseline_synthetic_n_kg",
  baseline_production_ef_col = "baseline_production_ef_tco2_per_kg",
  baseline_field_ef_col = "baseline_field_ef_tco2_per_kg",
  project_fertilizer_col = "project_synthetic_n_kg",
  project_production_ef_col = "project_production_ef_tco2_per_kg",
  project_field_ef_col = "project_field_ef_tco2_per_kg",
  inoculant_rate_col = "inoculant_rate_kg_per_ha",
  area_planted_col = "legume_area_ha",
  inoculant_emission_factor_col = "inoculant_ef_tco2_per_kg",
  leakage_col = "leakage_emissions_tco2e")

Arguments

baseline_data

Tibble containing baseline fertilizer observations.

project_data

Tibble containing project-period monitoring data.

leakage_data

Optional tibble containing leakage emissions.

group_cols

Optional grouping columns shared across inputs.

baseline_fertilizer_col

Column storing baseline synthetic nitrogen use (kg N).

baseline_production_ef_col

Column storing baseline fertilizer production emission factors (tCO2e per kg N).

baseline_field_ef_col

Column storing baseline direct soil emission factors (tCO2e per kg N).

project_fertilizer_col

Column storing residual synthetic nitrogen applied during the project (kg N).

project_production_ef_col

Column storing project fertilizer production emission factors (tCO2e per kg N).

project_field_ef_col

Column storing project direct soil emission factors (tCO2e per kg N).

inoculant_rate_col

Column storing inoculant application rates (kg/ha).

area_planted_col

Column storing the legume area planted (ha).

inoculant_emission_factor_col

Column storing inoculant emission factors (tCO2e per kg).

leakage_col

Column storing leakage emissions (tCO2e).

Value

Tibble containing baseline emissions, project emissions, leakage, and emission reductions.

Examples

baseline <- tibble::tibble(
  farm_id = c("A", "B"),
  baseline_synthetic_n_kg = c(120, 90),
  baseline_production_ef_tco2_per_kg = 0.004,
  baseline_field_ef_tco2_per_kg = 0.01
)
project <- tibble::tibble(
  farm_id = c("A", "B"),
  project_synthetic_n_kg = c(20, 15),
  project_production_ef_tco2_per_kg = 0.004,
  project_field_ef_tco2_per_kg = 0.01,
  inoculant_rate_kg_per_ha = c(0.5, 0.4),
  legume_area_ha = c(30, 25),
  inoculant_ef_tco2_per_kg = 0.002
)
estimate_emission_reductions_ams_iiia(
  baseline,
  project,
  group_cols = "farm_id"
)
#> # A tibble: 2 × 7
#>   farm_id baseline_emissions_tco2e project_fertilizer_e…¹ project_inoculant_em…²
#>   <chr>                      <dbl>                  <dbl>                  <dbl>
#> 1 A                           1.68                   0.28                   0.03
#> 2 B                           1.26                   0.21                   0.02
#> # ℹ abbreviated names: ¹​project_fertilizer_emissions_tco2e,
#> #   ²​project_inoculant_emissions_tco2e
#> # ℹ 3 more variables: leakage_emissions_tco2e <dbl>,
#> #   project_emissions_tco2e <dbl>, emission_reductions_tco2e <dbl>