# NOT RUN {
# show a simple case with no pollutant i.e. just the trajectories
# let's check to see where the trajectories were coming from when
# Heathrow Airport was closed due to the Icelandic volcanic eruption
# 15--21 April 2010.
# import trajectories for London and plot
# }
# NOT RUN {
lond <- importTraj("london", 2010)
# well, HYSPLIT seems to think there certainly were conditions where trajectories
# orginated from Iceland...
trajPlot(selectByDate(lond, start = "15/4/2010", end = "21/4/2010"))
# }
# NOT RUN {
# plot by day, need a column that makes a date
# }
# NOT RUN {
lond$day <- as.Date(lond$date)
trajPlot(selectByDate(lond, start = "15/4/2010", end = "21/4/2010"),
type = "day")
# }
# NOT RUN {
# or show each day grouped by colour, with some other options set
# }
# NOT RUN {
trajPlot(selectByDate(lond, start = "15/4/2010", end = "21/4/2010"),
group = "day", col = "jet", lwd = 2, key.pos = "right", key.col = 1)
# }
# NOT RUN {
# more examples to follow linking with concentration measurements...
# }
Run the code above in your browser using DataLab