Calculate baseline methane emissions for AMS-III.G

Estimate baseline methane emissions released from a landfill in the absence of gas recovery by combining waste disposal, methane generation potential, optional baseline recovery, and oxidation fractions.

calculate_baseline_methane_emissions_iiig(
  data,
  waste_disposed_col = "waste_disposed_tonnes",
  methane_generation_potential_col = "methane_generation_potential_m3_per_tonne",
  baseline_collection_efficiency_col = "baseline_collection_efficiency_fraction",
  oxidation_fraction_col = "oxidation_fraction",
  days_col = NULL,
  group_cols = NULL,
  output_col = "baseline_emissions_tco2e",
  methane_density_t_per_m3 = 0.00067,
  gwp_ch4 = 28
)

Arguments

data

Tibble containing baseline landfill monitoring data.

waste_disposed_col

Column storing waste disposed in tonnes.

methane_generation_potential_col

Column storing methane generation potential in cubic metres per tonne of waste.

baseline_collection_efficiency_col

Optional column storing the baseline methane collection efficiency.

oxidation_fraction_col

Optional column storing the oxidation fraction for uncaptured methane.

days_col

Optional column storing the number of days represented by each record.

group_cols

Optional character vector specifying grouping columns.

output_col

Name of the output column for baseline emissions in tCO2e.

methane_density_t_per_m3

Density of methane in tonnes per cubic metre.

gwp_ch4

Global warming potential of methane.

Value

Tibble containing grouped baseline methane emissions in tCO2e.

Examples

library(tibble)
baseline <- tibble(
  site_id = c("LF1", "LF2"),
  waste_disposed_tonnes = c(12000, 9000),
  methane_generation_potential_m3_per_tonne = c(90, 85),
  oxidation_fraction = c(0.1, 0.05)
)
calculate_baseline_methane_emissions_iiig(baseline, group_cols = "site_id")
#> Error in dplyr::mutate(data_tbl, .days = if (!is.null(days_col)) .data[[days_col]] else 1,     .generated_m3 = .data[[waste_disposed_col]] * .data[[methane_generation_potential_col]] *         .days, .captured_m3 = if (!is.null(baseline_collection_efficiency_col)) {        .generated_m3 * .data[[baseline_collection_efficiency_col]]    } else {        0    }, .oxidised_m3 = if (!is.null(oxidation_fraction_col)) {        (.generated_m3 - .captured_m3) * .data[[oxidation_fraction_col]]    } else {        0    }, .emitted_m3 = pmax(.generated_m3 - .captured_m3 - .oxidised_m3,         0), .baseline_component = .emitted_m3 * methane_density_t_per_m3 *         gwp_ch4): ℹ In argument: `.captured_m3 = if (...) NULL`.
#> Caused by error in `.data[["baseline_collection_efficiency_fraction"]]`:
#> ! Column `baseline_collection_efficiency_fraction` not found in `.data`.