Calculate baseline methane emissions from unmanaged manure systems — calculate_baseline_methane_emissions

Multiply volatile solids generation, methane potential, and baseline methane conversion factors to estimate baseline methane emissions in tCO2e.

calculate_baseline_methane_emissions_iiid(
  data,
  volatile_solids_col = "volatile_solids_kg_per_day",
  methane_potential_col = "methane_potential_m3_per_kg_vs",
  methane_conversion_factor_col = "baseline_mcf_fraction",
  days_col = "days_in_period",
  group_cols = NULL,
  output_col = "baseline_emissions_tco2e",
  methane_density_t_per_m3 = 0.00067,
  gwp_ch4 = 28
)

Arguments

data: Tibble containing baseline 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).
methane_conversion_factor_col: Column storing the baseline methane conversion factor (fraction).
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 baseline emissions.
methane_density_t_per_m3: Density of methane in tonnes per cubic metre.
gwp_ch4: Global warming potential of methane.

Value

Tibble containing grouping columns (if supplied) and baseline emissions in tCO2e.

Examples

library(tibble)
baseline <- tibble(
  farm_id = c("A", "B"),
  volatile_solids_kg_per_day = c(45, 30),
  methane_potential_m3_per_kg_vs = 0.25,
  baseline_mcf_fraction = c(0.8, 0.75),
  days_in_period = 365
)
calculate_baseline_methane_emissions_iiid(baseline)
#> # A tibble: 1 × 1
#>   baseline_emissions_tco2e
#>                      <dbl>
#> 1                     100.