# NOT RUN {
library(AirSensor)
aug01_08 <-
example_pat %>%
pat_filterDate(20180801, 20180808)
aug15_22 <-
example_pat %>%
pat_filterDate(20180815, 20180822)
pat_join(aug01_08, aug15_22) %>%
pat_multiPlot(plottype = "pm25")
# }
Run the code above in your browser using DataLab