powered by
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
totalEmission(v, ef, pol, verbose = TRUE)
Return a list with the daily total emission by interest area (cityes, states, countries, etc).
dataframe with the vehicle data
emission factor
pollutant name in ef
display additional information
rasterSource, lineSource and emission
rasterSource
lineSource
emission
veic <- vehicles(example = TRUE) EmissionFactors <- emissionFactor(example = TRUE) TOTAL <- totalEmission(veic,EmissionFactors,pol = c("CO","PM"))
Run the code above in your browser using DataLab