totalEmission {EmissV}

Calculate total emissions

Description

Caculate the total emission with:

Emission(pollutant) = sum( Vehicles(n) * Km_day_use(n) * Emission_Factor(n,pollutant) )

where n is the type of the veicle

Usage

totalEmission(v, ef, pol, verbose = TRUE)

Arguments

v

dataframe with the vehicle data

ef

emission factor

pol

pollutant name in ef

verbose

display additional information

Value

Return a list with the daily total emission by interest area (cityes, states, countries, etc).

Note

the units (set_units("value",unit) where the recomended unit is g/d) must be used to make the ef data.frame

See Also

rasterSource, lineSource and emission

Examples

veic <- vehicles(example = TRUE)

EmissionFactors <- emissionFactor(example = TRUE)

TOTAL <- totalEmission(veic,EmissionFactors,pol = c("CO","PM"))