# NOT RUN {
library(AirSensor)
setArchiveBaseUrl("http://data.mazamascience.com/PurpleAir/v1")
# Reference an older 'pas' before this sensor was dropped
pas <- pas_load(20190901, archival = TRUE)
may <- pat_loadMonth(label = "SCNP_20", pas = pas, datestamp = 201905)
pat_multiPlot(may)
# }
Run the code above in your browser using DataLab