Calculate project fossil fuel emissions (Equation 2)

Equation (2) of AMS-II.D quantifies project emissions from the modernised thermal system.

calculate_project_fossil_emissions(
  project_data,
  fuel_col = "project_fuel_quantity",
  ncv_col = "project_ncv_gj_per_unit",
  emission_factor_col = "project_emission_factor_tco2_per_gj",
  efficiency_col = "project_efficiency",
  electricity_col = NULL,
  group_cols = NULL,
  output_col = "project_emissions_tco2e"
)

Arguments

project_data

A tibble describing monitored project fuel consumption.

fuel_col

Column with project fuel consumption quantities.

ncv_col

Column with project fuel net calorific values (GJ per unit).

emission_factor_col

Column with project emission factors (tCO2e per GJ).

efficiency_col

Column storing project equipment efficiency (fraction between 0 and 1).

electricity_col

Optional column storing indirect electricity emissions in tCO2e.

group_cols

Optional character vector of grouping variables to retain.

output_col

Name of the resulting emission column.

Value

A tibble with grouped project emission totals.

Examples

project <- tibble::tibble(unit = c("Kiln", "Dryer"),
                          project_fuel = c(950, 710),
                          ncv = c(0.038, 0.041),
                          ef = c(0.094, 0.094),
                          efficiency = c(0.84, 0.8))
calculate_project_fossil_emissions(
  project,
  fuel_col = project_fuel,
  ncv_col = ncv,
  emission_factor_col = ef,
  efficiency_col = efficiency,
  group_cols = "unit"
)
#> # A tibble: 2 × 2
#>   unit  project_emissions_tco2e
#>   <chr>                   <dbl>
#> 1 Dryer                    3.42
#> 2 Kiln                     4.04