Emissions estimates

emis_china(
  x,
  lkm,
  tfs,
  v = "PV",
  t = "Small",
  f = "G",
  standard,
  s,
  speed,
  te,
  hu,
  h,
  yeardet = 2016,
  p,
  verbose = TRUE,
  array = FALSE
)

Arguments

x

Vehicles data.frame

lkm

Length of each link in km

tfs

temporal factor

v

Character; category vehicle: "PV" for Passenger Vehicles or 'Trucks"

t

Character; sub-category of of vehicle: PV Gasoline: "Mini", "Small","Medium", "Large", "Taxi", "Motorcycles", "Moped", PV Diesel: "Mediumbus", "Largebus", "3-Wheel". Trucks: "Mini", "Light" , "Medium", "Heavy"

f

Character;fuel: "G", "D", "CNG", "ALL"

standard

Character vector; "PRE", "I", "II", "III", "IV", "V".

s

Sulhur in ppm

speed

Speed (length nrow x)

te

Temperature (length tfs)

hu

Humidity (length tfs)

h

Altitude (length nrow x)

yeardet

Year, default 2016

p

Character; pollutant: "CO", "NOx","HC", "PM", "Evaporative_driving" or "Evaporative_parking"

verbose

Logical to show more info

array

Logical to return EmissionsArray or not

Value

long data.frame

Examples

{
ef_china_h(h = 1600, p = "CO")
}
#> [1] 1.58