# NOT RUN {
raw <- airsis_createRawDataframe(startdate = 20160901, provider = 'USFS',unitID = '1033')
raw <- raw_enhance(raw)
highlightRange <- c(50,Inf)
dataVar <- 'pm25'
tzone <- "America/Los_Angeles"
highlightDates <- raw_getHighlightDates(raw,dataVar,tzone,highlightRange)
rawPlot_timeOfDaySpaghetti(df=raw,highlightDates = highlightDates)
# }
Run the code above in your browser using DataLab