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

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" Type: "Cold" or "Hot" "Urban", "Rural", "Highway" 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" Type of fuel: "G", "D" or "LPG" Euro standard: "PRE", "I", "II", "III", "IV", "V", "VI", "VIc" Pollutant: "N2O", "NH3" Sulphur (ppm). Number. Numeric; Acondumulated mileage to return number of emission factor and not a function. Multiplication factor Option to see or not the equation parameters 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

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