# NOT RUN {
N_M <- monitor_subset(Northwest_Megafires, tlim=c(20150715,20150930))
main <- "Daily Average PM2.5 for Omak, WA"
monitorPlot_dailyBarplot(N_M, monitorID="530470013_01", main=main,
labels_x_nudge=1)
addAQILegend(fill=rev(AQI$colors), pch=NULL)
# }
Run the code above in your browser using DataLab