ACM0006 covers electricity and heat generation from biomass. The cdmAcm0006 package provides helpers for applicability assessment, baseline and project emission calculations, and monitoring aggregation.

library(cdmAcm0006)

monitoring <- simulate_acm0006_dataset(6, seed = 2024)
head(monitoring)
#> # A tibble: 6 × 12
#>   period    heat_output_tj electricity_output_mwh baseline_heat_ef
#>   <chr>              <dbl>                  <dbl>            <dbl>
#> 1 Period 01           8.98                   432.             84.2
#> 2 Period 02           8.47                   392.             81.5
#> 3 Period 03           7.89                   327.             63.6
#> 4 Period 04           7.79                   333.             79.3
#> 5 Period 05           9.16                   300.             75.4
#> 6 Period 06           9.29                   428.             82.3
#> # ℹ 8 more variables: baseline_electricity_ef <dbl>, auxiliary_fossil_tj <dbl>,
#> #   auxiliary_fossil_ef <dbl>, electricity_import_mwh <dbl>,
#> #   import_emission_factor <dbl>, biomass_transport_tkm <dbl>,
#> #   transport_emission_factor <dbl>, leakage_fraction <dbl>

Applicability checks

check_applicability_biomass_feedstock("agricultural residues")
#> [1] TRUE
check_applicability_biomass_fraction(monitoring$leakage_fraction * 0 + 0.95)
#> [1] TRUE TRUE TRUE TRUE TRUE TRUE

Emission calculation workflow

period_summary <- aggregate_monitoring_periods(monitoring)
period_summary
#> # A tibble: 6 × 16
#>   period    heat_output_tj electricity_output_mwh baseline_heat_ef
#>   <chr>              <dbl>                  <dbl>            <dbl>
#> 1 Period 01           8.98                   432.             84.2
#> 2 Period 02           8.47                   392.             81.5
#> 3 Period 03           7.89                   327.             63.6
#> 4 Period 04           7.79                   333.             79.3
#> 5 Period 05           9.16                   300.             75.4
#> 6 Period 06           9.29                   428.             82.3
#> # ℹ 12 more variables: baseline_electricity_ef <dbl>,
#> #   auxiliary_fossil_tj <dbl>, auxiliary_fossil_ef <dbl>,
#> #   electricity_import_mwh <dbl>, import_emission_factor <dbl>,
#> #   biomass_transport_tkm <dbl>, transport_emission_factor <dbl>,
#> #   leakage_fraction <dbl>, baseline_emissions <dbl>, project_emissions <dbl>,
#> #   leakage_emissions <dbl>, emission_reductions <dbl>

totals <- estimate_emission_reductions_acm0006(monitoring)
totals
#> # A tibble: 1 × 6
#>   total_heat_output_tj total_electricity_output_mwh total_baseline_emissions
#>                  <dbl>                        <dbl>                    <dbl>
#> 1                 51.6                        2212.                    5529.
#> # ℹ 3 more variables: total_project_emissions <dbl>,
#> #   total_leakage_emissions <dbl>, total_emission_reductions <dbl>