emis_evap performs the estimation of evaporative emissions from EMEP/EEA emisison guidelines with Tier 2.

emis_evap2(
veh,
name,
size,
fuel,
aged,
nd4,
nd3,
nd2,
nd1,
hs_nd4,
hs_nd3,
hs_nd2,
hs_nd1,
rl_nd4,
rl_nd3,
rl_nd2,
rl_nd1,
d_nd4,
d_nd3,
d_nd2,
d_nd1
)

## Arguments

veh Total number of vehicles by age of use. If is a lsit of 'Vehicles' data-frames, it will sum the columns of the eight element of the list representing the 8th hour. It was chosen this hour because it is morning rush hour but the user can adapt the data to this function Character of type of vehicle Character of size of vehicle Character of fuel of vehicle Age distribution vector. E.g.: 1:40 Number of days with temperature between 20 and 35 celcius degrees Number of days with temperature between 10 and 25 celcius degrees Number of days with temperature between 0 and 15 celcius degrees Number of days with temperature between -5 and 10 celcius degrees average daily hot-soak evaporative emissions for days with temperature between 20 and 35 celcius degrees average daily hot-soak evaporative emissions for days with temperature between 10 and 25 celcius degrees average daily hot-soak evaporative emissions for days with temperature between 0 and 15 celcius degrees average daily hot-soak evaporative emissions for days with temperature between -5 and 10 celcius degrees average daily running losses evaporative emissions for days with temperature between 20 and 35 celcius degrees average daily running losses evaporative emissions for days with temperature between 10 and 25 celcius degrees average daily running losses evaporative emissions for days with temperature between 0 and 15 celcius degrees average daily running losses evaporative emissions for days with temperature between -5 and 10 celcius degrees average daily diurnal evaporative emissions for days with temperature between 20 and 35 celcius degrees average daily diurnal evaporative emissions for days with temperature between 10 and 25 celcius degrees average daily diurnal evaporative emissions for days with temperature between 0 and 15 celcius degrees average daily diurnal evaporative emissions for days with temperature between -5 and 10 celcius degrees

## Value

dataframe of emission estimation in grams/days

## References

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

## Examples

if (FALSE) {
data(net)
PC_G <- c(33491,22340,24818,31808,46458,28574,24856,28972,37818,49050,87923,
133833,138441,142682,171029,151048,115228,98664,126444,101027,
84771,55864,36306,21079,20138,17439, 7854,2215,656,1262,476,512,
1181, 4991, 3711, 5653, 7039, 5839, 4257,3824, 3068)
veh <- data.frame(PC_G = PC_G)
pc1 <- my_age(x = net\$ldv, y = PC_G, name = "PC")
ef1 <- ef_evap(ef = "erhotc",v = "PC", cc = "<=1400", dt = "0_15", ca = "no")
dfe <- emis_evap2(veh = pc1,
name = "PC",
size = "<=1400",
fuel = "G",
aged = 1:ncol(pc1),
nd4 = 10,
nd3 = 4,
nd2 = 2,
nd1 = 1,
hs_nd4 = ef1*1:ncol(pc1),
hs_nd3 = ef1*1:ncol(pc1),
hs_nd2 = ef1*1:ncol(pc1),
hs_nd1 = ef1*1:ncol(pc1),
d_nd4 = ef1*1:ncol(pc1),
d_nd3 = ef1*1:ncol(pc1),
d_nd2 = ef1*1:ncol(pc1),
d_nd1 = ef1*1:ncol(pc1),
rl_nd4 = ef1*1:ncol(pc1),
rl_nd3 = ef1*1:ncol(pc1),
rl_nd2 = ef1*1:ncol(pc1),
rl_nd1 = ef1*1:ncol(pc1))
lpc <- list(pc1, pc1, pc1, pc1,
pc1, pc1, pc1, pc1)
dfe <- emis_evap2(veh = lpc,
name = "PC",
size = "<=1400",
fuel = "G",
aged = 1:ncol(pc1),
nd4 = 10,
nd3 = 4,
nd2 = 2,
nd1 = 1,
hs_nd4 = ef1*1:ncol(pc1),
hs_nd3 = ef1*1:ncol(pc1),
hs_nd2 = ef1*1:ncol(pc1),
hs_nd1 = ef1*1:ncol(pc1),
d_nd4 = ef1*1:ncol(pc1),
d_nd3 = ef1*1:ncol(pc1),
d_nd2 = ef1*1:ncol(pc1),
d_nd1 = ef1*1:ncol(pc1),
rl_nd4 = ef1*1:ncol(pc1),
rl_nd3 = ef1*1:ncol(pc1),
rl_nd2 = ef1*1:ncol(pc1),
rl_nd1 = ef1*1:ncol(pc1))
}