ef_nitro: Emissions factors of N2O and NH3

In vein: Vehicular Emissions Inventories

Emissions factors of N2O and NH3

Description

ef_nitro returns emission factors as a functions of acondumulated mileage. The emission factors comes from the guidelines EMEP/EEA air pollutant emission inventory guidebook http://www.eea.europa.eu/themes/air/emep-eea-air-pollutant-emission-inventory-guidebook

Usage

ef_nitro(
  v,
  t = "Hot",
  cond = "Urban",
  cc,
  f,
  eu,
  p = "NH3",
  S = 10,
  cumileage,
  k = 1,
  show.equation = FALSE,
  fcorr = rep(1, 8)
)

Arguments

v	Category vehicle: "PC", "LCV", "Motorcycles_2S", "Motorcycles", "Trucks", "Trucks-A", "Coach" and "BUS"
t	Type: "Cold" or "Hot"
cond	"Urban", "Rural", "Highway"
cc	PC: "<=1400", "1400_2000", ">2000". LCV: "<3.5". Motorcycles: ">=50", Motorcycles_2S, "<50", ">=50". Trucks: ">3.5", "7.5_12", "12_28", "28_34". Trucks_A: ">34". BUS: "<=15", ">15 & <= 18". Coach: "<=18", ">18"
f	Type of fuel: "G", "D" or "LPG"
eu	Euro standard: "PRE", "I", "II", "III", "IV", "V", "VI", "VIc"
p	Pollutant: "N2O", "NH3"
S	Sulphur (ppm). Number.
cumileage	Numeric; Acondumulated mileage to return number of emission factor and not a function.
k	Multiplication factor
show.equation	Option to see or not the equation parameters
fcorr	Numeric; Correction by by euro technology.

Value

an emission factor function which depends on the acondumulated mileage, or an EmissionFactor

Note

if length of eu is bigger than 1, cumileage can have values of length 1 or length equal to length of eu

Examples

## Not run: 
efe10 <- ef_nitro(v = "PC", t = "Hot", cond = "Urban", f = "G", cc = "<=1400",
eu = "III", p = "NH3", S = 10,
show.equation = FALSE)
efe50 <- ef_nitro(v = "PC", t = "Hot", cond = "Urban", f = "G", cc = "<=1400",
eu = "III", p = "NH3", S = 50,
show.equation = TRUE)
efe10(10)
efe50(10)
efe10 <- ef_nitro(v = "PC", t = "Hot", cond = "Urban", f = "G", cc = "<=1400",
eu = "III", p = "NH3", S = 10, cumileage = units::set_units(25000, "km"))

## End(Not run)

vein documentation built on April 30, 2023, 1:10 a.m.