emis_evap: Estimation of evaporative emissions

Description

emis_evap estimates evaporative emissions from EMEP/EEA emisison guidelines

Usage

emis_evap(veh, x, ed, hotfi, hotc, warmc, carb = 0, p, params, pro_month,
  verbose = FALSE)

Arguments

veh

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

hotfi

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

hotc

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',

warmc

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',

carb

fraction of gasoline vehicles with carburator or fuel return system.

Fraction of trips finished with hot engine

params

Character; Add columns with information to returning data.frame

pro_month

Numeric; montly profile to distribuite annual mileage in each month.

verbose

Logical; To show more information

Value

numeric vector of emission estimation in grams

References

Mellios G and Ntziachristos 2016. Gasoline evaporation. In: EEA, EMEP. EEA air pollutant emission inventory guidebook-2009. European Environment Agency, Copenhagen, 2009

Examples

Run this code

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