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

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

if (FALSE) { 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) }