Description Usage Arguments Value Examples

This function returns speed dependent emission factors. The emission factors comes from the guidelines EMEP/EEA air pollutant emission inventory guidebook http://www.eea.europa.eu/themes/air/emep-eea-air-pollutant-emission-inventory-guidebook

1 2 | ```
ef_hdv_speed(v, t, g, eu, gr = 0, l = 0.5, p, k = 1,
show.equation = TRUE)
``` |

`v` |
Category vehicle: "Coach", "Trucks" or "Ubus" |

`t` |
Sub-category of of vehicle: "3Axes", "Artic", "Midi", "RT, "Std" and "TT" |

`g` |
Gross weight of each category: "<=18", ">18", "<=15", ">15 & <=18", "<=7.5", ">7.5 & <=12", ">12 & <=14", ">14 & <=20", ">20 & <=26", ">26 & <=28", ">28 & <=32", ">32", ">20 & <=28", ">28 & <=34", ">34 & <=40", ">40 & <=50" or ">50 & <=60" |

`eu` |
Euro emission standard: "PRE", "I", "II", "III", "IV" and "V" |

`gr` |
Gradient or slope of road: -0.06, -0.04, -0.02, 0.00, 0.02. 0.04 or 0.06 |

`l` |
Load of the vehicle: 0.0, 0.5 or 1.0 |

`p` |
Pollutant: "CO", "FC", "NOx" or "HC" |

`k` |
Multiplication factor |

`show.equation` |
Option to see or not the equation parameters |

an emission factor function which depends of the average speed V g/km

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ```
## Not run:
# Do not run
V <- 0:130
ef1 <- ef_hdv_speed(v = "Trucks",t = "RT", g = "<=7.5", e = "II", gr = 0,
l = 0.5, p = "HC")
plot(1:130, ef2(1:130))
euro <- c(rep("V", 5), rep("IV", 5), rep("III", 5), rep("II", 5),
rep("I", 5), rep("PRE", 15))
lef <- lapply(1:30, function(i) {
ef_hdv_speed(v = "Trucks", t = "RT", g = ">32", gr = 0,
eu = euro[i], l = 0.5, p = "NOx",
show.equation = F)(25) })
efs <- EmissionFactors(unlist(lef)) #returns 'units'
plot(efs, xlab = "age")
lines(efs, type = "l")
## End(Not run)
``` |

ibarraespinosa/vein documentation built on Feb. 5, 2018, 11:34 p.m.

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.