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

emis_wear(
  veh,
  lkm,
  ef,
  what = "tyre",
  speed,
  agemax = ncol(veh),
  profile,
  hour = nrow(profile),
  day = ncol(profile)
)

Arguments

veh

Object of class "Vehicles"

lkm

Length of the road in km.

ef

list of emission factor functions class "EmissionFactorsList", length equals to hours.

what

Character for indicating "tyre", "break" or "road"

speed

Speed data-frame with number of columns as hours

agemax

Age of oldest vehicles for that category

profile

Numerical or dataframe with nrows equal to 24 and ncol 7 day of the week

hour

Number of considered hours in estimation

day

Number of considered days in estimation

Value

emission estimation g/h

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[1:10] + net$hdv[1:10], pc_profile[, 1]) df <- netspeed(pc_week, net$ps[1:10], net$ffs[1:10], net$capacity[1:10], net$lkm[1:10], alpha = 1) ef <- ef_wear(wear = "tyre", type = "PC", pol = "PM10", speed = df) emi <- emis_wear(veh = age_ldv(net$ldv[1:10], name = "VEH"), lkm = net$lkm[1:10], ef = ef, speed = df, profile = pc_profile[, 1]) emi }