vein (version 0.7.8)

ef_wear: Emissions factors from tyre, break and road surface wear

Description

ef_wear estimates wear emissions. The sources are tyres, breaks and road surface.

Usage

ef_wear(wear, type, pol = "TSP", speed, load = 0.5, axle = 2)

Arguments

wear

Character; type of wear: "tyre", "break" and "road"

type

Character; type of vehicle: "2W", "PC", "LCV", 'HDV"

pol

Character; pollutant: "TSP", "PM10", "PM2.5", "PM1" and "PM0.1"

speed

Data.frame of speeds

load

Load of the HDV

axle

Number of axle of the HDV

Value

emission factors grams/km

References

Ntziachristos and Boulter 2016. Automobile tyre and break wear and road abrasion. In: EEA, EMEP. EEA air pollutant emission inventory guidebook-2009. European Environment Agency, Copenhagen, 2016

Examples

# NOT RUN {
data(net)
data(pc_profile)
pc_week <- temp_fact(net$ldv+net$hdv, pc_profile)
df <- netspeed(pc_week, net$ps, net$ffs, net$capacity, net$lkm, alpha = 1)
ef <- ef_wear(wear = "tyre", type = "PC", pol = "PM10", speed = df)
# }