Take into account the effect of better fuels on vehicles with older technology. If the ratio is less than 1, return 1. It means that it is nota degradation function.
fuel_corr(euro, g = c(e100 = 52, aro = 39, o2 = 0.4, e150 = 86, olefin =
10, s = 165), d = c(den = 840, pah = 9, cn = 51, t95 = 350, s = 400))
Character; Euro standards ("PRE", "I", "II", "III", "IV", "V", VI, "VIc")
Numeric; vector with parameters of gasoline with the names: e100(vol. (sulphur, ppm)
Numeric; vector with parameters for diesel with the names: den (density at 15 celcius degrees kg/m3), pah ( (Back end distillation in Celcius degrees) and s (sulphur, ppm)
A list with the correction of emission factors.
# NOT RUN {
{
f <- fuel_corr(euro = "I")
names(f)
}
# }
Run the code above in your browser using DataLab