emis_wear: Emission estimation from tyre, brake and road surface wear

In vein: Vehicular Emissions Inventories

Emission estimation from tyre, brake and road surface wear

Description

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

Usage

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

## Not run: 
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

## End(Not run)

vein documentation built on April 30, 2023, 1:10 a.m.