estimate_emission_reductions_ams_iiia.RdChains 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")Tibble containing baseline fertilizer observations.
Tibble containing project-period monitoring data.
Optional tibble containing leakage emissions.
Optional grouping columns shared across inputs.
Column storing baseline synthetic nitrogen use (kg N).
Column storing baseline fertilizer production emission factors (tCO2e per kg N).
Column storing baseline direct soil emission factors (tCO2e per kg N).
Column storing residual synthetic nitrogen applied during the project (kg N).
Column storing project fertilizer production emission factors (tCO2e per kg N).
Column storing project direct soil emission factors (tCO2e per kg N).
Column storing inoculant application rates (kg/ha).
Column storing the legume area planted (ha).
Column storing inoculant emission factors (tCO2e per kg).
Column storing leakage emissions (tCO2e).
Tibble containing baseline emissions, project emissions, leakage, and emission reductions.
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>