Calculate non-renewable biomass under AMS-II.G

Applies the fraction of non-renewable biomass to monitored baseline or project biomass consumption and aggregates the results by the requested grouping structure. The helpers implement Equation (1) of AMS-II.G for the baseline and an analogous expression for the project scenario.

calculate_baseline_non_renewable_biomass_iig(
  baseline_data,
  consumption_col = "baseline_biomass_consumption_tonnes",
  fraction_col = "baseline_non_renewable_fraction",
  group_cols = NULL,
  output_col = "baseline_non_renewable_biomass_tonnes"
)

calculate_project_non_renewable_biomass_iig(
  project_data,
  project_consumption_col = "project_biomass_consumption_tonnes",
  project_fraction_col = "project_non_renewable_fraction",
  group_cols = NULL,
  output_col = "project_non_renewable_biomass_tonnes"
)

Arguments

baseline_data

Tibble containing baseline biomass monitoring data.

consumption_col

Column storing baseline biomass consumption (tonnes).

fraction_col

Column storing the baseline fraction of biomass that is non-renewable.

group_cols

Optional character vector of grouping columns used to aggregate results.

output_col

Name of the output column storing non-renewable biomass totals.

project_data

Tibble containing project biomass monitoring data.

project_consumption_col

Column storing project biomass consumption (tonnes).

project_fraction_col

Column storing the project fraction of biomass that is non-renewable.

Value

A tibble with one row per grouping structure (or a single aggregated row when group_cols is NULL) containing non-renewable biomass totals.

Examples

baseline <- tibble::tibble(
  site_id = c("A", "A", "B"),
  baseline_biomass_consumption_tonnes = c(10, 6, 12),
  baseline_non_renewable_fraction = c(0.8, 0.75, 0.9)
)
calculate_baseline_non_renewable_biomass_iig(baseline, group_cols = "site_id")
#> # A tibble: 2 × 2
#>   site_id baseline_non_renewable_biomass_tonnes
#>   <chr>                                   <dbl>
#> 1 A                                        12.5
#> 2 B                                        10.8

project <- tibble::tibble(
  site_id = c("A", "B"),
  project_biomass_consumption_tonnes = c(6, 7),
  project_non_renewable_fraction = c(0.4, 0.35)
)
calculate_project_non_renewable_biomass_iig(project, group_cols = "site_id")
#> # A tibble: 2 × 2
#>   site_id project_non_renewable_biomass_tonnes
#>   <chr>                                  <dbl>
#> 1 A                                       2.4 
#> 2 B                                       2.45