emis_evap
estimates evaporative emissions from
EMEP/EEA emisison guidelines
emis_evap(veh, x, ed, hotfi, hotc, warmc, carb = 0, p, params, pro_month,
verbose = FALSE)
Numeric or data.frame of Vehicles with untis 'veh'.
Numeric which can be either, daily mileage by age of use with units 'lkm', number of trips or number of proc. When it has units 'lkm', all the emission factors must be in 'g/km'. When ed is in g/day, x it is the number of days (without units). When hotfi, hotc or warmc are in g/trip, x it is the number of trips (without units). When hotfi, hotc or warmc are in g/proced, x it is the number of proced (without units).
average daily evaporative emisisons. If x has units 'lkm', the units of ed must be 'g/km', other case, this are simply g/day (without units).
average hot running losses or soak evaporative factor for vehicles with fuel injection and returnless fuel systems. If x has units 'lkm', the units of ed must be 'g/km', other case, this are simply g/trip or g/proced
average running losses or soak evaporative factor for vehicles with carburator or fuel return system for vehicles with fuel injection and returnless fuel systems. If x has units 'lkm', the units of ed must be 'g/km',
average cold and warm running losses or soak evaporative factor for vehicles with carburator or fuel return system for vehicles with fuel injection and returnless fuel systems. If x has units 'lkm', the units of ed must be 'g/km',
fraction of gasoline vehicles with carburator or fuel return system.
Fraction of trips finished with hot engine
Character; Add columns with information to returning data.frame
Numeric; montly profile to distribuite annual mileage in each month.
Logical; To show more information
numeric vector of emission estimation in grams
Mellios G and Ntziachristos 2016. Gasoline evaporation. In: EEA, EMEP. EEA air pollutant emission inventory guidebook-2009. European Environment Agency, Copenhagen, 2009
# NOT RUN {
{
(a <- Vehicles(1:10))
(lkm <- units::as_units(1:10, "km"))
(ef <- EmissionFactors(1:10))
(ev <- emis_evap(veh = a, x = lkm, hotfi = ef))
}
# }
Run the code above in your browser using DataLab