Estimate methane emissions under project conditions by subtracting captured and destroyed methane from project generation totals.

calculate_project_methane_emissions_iiid(
  data,
  volatile_solids_col = "volatile_solids_kg_per_day",
  methane_potential_col = "methane_potential_m3_per_kg_vs",
  project_methane_conversion_factor_col = "project_mcf_fraction",
  capture_efficiency_col = "capture_efficiency_fraction",
  destruction_efficiency_col = "destruction_efficiency_fraction",
  days_col = "days_in_period",
  group_cols = NULL,
  output_col = "project_emissions_tco2e",
  methane_density_t_per_m3 = 0.00067,
  gwp_ch4 = 28
)

Arguments

data

Tibble containing project monitoring data.

volatile_solids_col

Column storing volatile solids generated per day (kg VS/day).

methane_potential_col

Column storing methane producing potential (m\(^3\) CH\(_4\)/kg VS).

project_methane_conversion_factor_col

Column storing the project methane conversion factor (fraction).

capture_efficiency_col

Column storing the fraction of methane captured by the recovery system.

destruction_efficiency_col

Column storing the fraction of captured methane destroyed.

days_col

Column storing the number of days represented by each record.

group_cols

Optional character vector of grouping columns.

output_col

Name of the output column for project emissions.

methane_density_t_per_m3

Density of methane in tonnes per cubic metre.

gwp_ch4

Global warming potential of methane.

Value

Tibble containing grouped project methane emissions in tCO2e.

Examples

project <- tibble::tibble(
  farm_id = c("A", "B"),
  volatile_solids_kg_per_day = c(45, 30),
  methane_potential_m3_per_kg_vs = 0.25,
  project_mcf_fraction = c(0.65, 0.6),
  capture_efficiency_fraction = c(0.85, 0.8),
  destruction_efficiency_fraction = c(0.98, 0.95),
  days_in_period = 365
)
calculate_project_methane_emissions_iiid(project)
#> # A tibble: 1 × 1
#>   project_emissions_tco2e
#>                     <dbl>
#> 1                    15.8