EmissV (version 0.664.5)

totalEmission: Calculate total emissions

Description

Caculate the total emission with:

Emission = 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 = T)

Arguments

v

dataframe with the vehicle data

ef

emission factor

pol

pollutant name in ef

verbose

display additional information

Format

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

See Also

rasterSource, lineSource and emission

Examples

# NOT RUN {
veic <- vehicles(example = TRUE)

EmissionFactors <- emissionFactor(example = TRUE)

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