Correction of Chinese emission

ef_china_s(s, f = "G", standard, p)

Arguments

s

Numeric sulfur content in ppm

f

Character;fuel: "G", "D", "CNG", "ALL"

standard

Character vector; "PRE", "I", "II", "III", "IV", "V".

p

Character; pollutant: "CO", "NOx","HC", "PM", "Evaporative_driving" or "Evaporative_parking"

Value

long data.frame

Examples

{
ef_china_s(s = 1000, standard = "I", p = "CO")
}
#> [1] 1.29