# NOT RUN {
library(AirSensor)
# Set default location of pre-generated data files
setArchiveBaseUrl("http://data.mazamascience.com/PurpleAir/v1")
pas <- pas_load(archival = TRUE)
pat <- pat_loadMonth(label = "SCBB_02", pas = pas, datestamp = 202005)
sensor <- pat_createAirSensor(pat)
# Load wind data from NOAA
windData <- worldmet::importNOAA(
code = "722975-53141",
year = 2020
)
windData <- dplyr::select(windData, c("date", "wd", "ws"))
# Plot rose using mean binning
sensor_pollutionRose(sensor, windData, statistic = "prop.mean")
# }
Run the code above in your browser using DataLab