ef_nitro {vein}

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)