vein (version 0.7.8)

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

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

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"))
}
# }