acm0019_equations.RdFunctions translating ACM0019 baseline, project, leakage, and net reduction equations into reusable R helpers.
calculate_baseline_emissions_acm0019(production_tonnes, baseline_ef_kg_per_tonne, gwp_n2o = 265)
calculate_project_emissions_acm0019(production_tonnes, project_ef_kg_per_tonne, gwp_n2o = 265)
calculate_leakage_emissions_acm0019(electricity_mwh = 0, grid_ef_t_per_mwh = 0, steam_tonnes = 0, steam_ef_t_per_tonne = 0)
calculate_net_emission_reductions_acm0019(baseline_emissions_tco2e, project_emissions_tco2e, leakage_emissions_tco2e = 0)Numeric vector of nitric acid production in tonnes.
Numeric vector of baseline N2O emission factors in kilograms per tonne of nitric acid.
Global warming potential applied to nitrous oxide emissions.
Numeric vector of project emission factors in kilograms per tonne of nitric acid.
Numeric vector of auxiliary electricity consumption.
Numeric vector of grid emission factors in tonnes of CO2 per megawatt-hour.
Numeric vector of imported steam quantities.
Numeric vector of steam emission factors in tonnes of CO2 per tonne of steam.
Numeric vector of baseline emissions in tonnes of CO2 equivalent.
Numeric vector of project emissions in tonnes of CO2 equivalent.
Numeric vector of leakage emissions in tonnes of CO2 equivalent.
Numeric vectors containing the calculated emissions quantities in tonnes of CO2 equivalent.
baseline <- calculate_baseline_emissions_acm0019(1500, 9.5)
project <- calculate_project_emissions_acm0019(1500, 1.2)
leakage <- calculate_leakage_emissions_acm0019(120, 0.7, 50, 0.08)
calculate_net_emission_reductions_acm0019(baseline, project, leakage)
#> [1] 3211.25