Calculate baseline fossil fuel emissions (Equation 1)

Equation (1) of AMS-II.D expresses baseline emissions from fossil fuel use in the absence of the project activity.

calculate_baseline_fossil_emissions(
  baseline_data,
  fuel_col = "baseline_fuel_quantity",
  ncv_col = "baseline_ncv_gj_per_unit",
  emission_factor_col = "baseline_emission_factor_tco2_per_gj",
  efficiency_col = "baseline_efficiency",
  group_cols = NULL,
  output_col = "baseline_emissions_tco2e"
)

Arguments

baseline_data

A tibble describing counterfactual fuel consumption.

fuel_col

Column storing the baseline fuel quantity (in mass or volume units consistent with ncv_col).

ncv_col

Column storing the net calorific value (GJ per unit).

emission_factor_col

Column storing the CO2 emission factor (tCO2e per GJ).

efficiency_col

Column storing the thermal efficiency of the baseline equipment (fraction between 0 and 1).

group_cols

Optional character vector of grouping variables that should be retained in the output.

output_col

Name of the resulting emission column.

Value

A tibble with the requested grouping columns and the baseline emission totals.

Examples

baseline <- tibble::tibble(unit = c("Kiln", "Dryer"),
                           baseline_fuel = c(1200, 900),
                           ncv = c(0.038, 0.041),
                           ef = c(0.094, 0.094),
                           efficiency = c(0.72, 0.68))
calculate_baseline_fossil_emissions(
  baseline,
  fuel_col = baseline_fuel,
  ncv_col = ncv,
  emission_factor_col = ef,
  efficiency_col = efficiency,
  group_cols = "unit"
)
#> # A tibble: 2 × 2
#>   unit  baseline_emissions_tco2e
#>   <chr>                    <dbl>
#> 1 Dryer                     5.10
#> 2 Kiln                      5.95