vein (version 1.0.2)

ef_nitro: 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)
)

Value

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

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.

Examples

if (FALSE) {
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"))
}