calculate_project_methane_emissions_iiid.RdEstimate 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
)Tibble containing project monitoring data.
Column storing volatile solids generated per day (kg VS/day).
Column storing methane producing potential (m\(^3\) CH\(_4\)/kg VS).
Column storing the project methane conversion factor (fraction).
Column storing the fraction of methane captured by the recovery system.
Column storing the fraction of captured methane destroyed.
Column storing the number of days represented by each record.
Optional character vector of grouping columns.
Name of the output column for project emissions.
Density of methane in tonnes per cubic metre.
Global warming potential of methane.
Tibble containing grouped project methane emissions in tCO2e.
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