# NOT RUN {
# }
# NOT RUN {
library(AirSensor)
North_Bend_Weather <-
pat_createNew(
label = "North Bend Weather",
pas = example_pas,
startdate = 20180801,
enddate = 20180901,
verbose = TRUE
)
if ( interactive() ) {
North_Bend_Weather %>%
pat_sample(sampleSize = 1000, setSeed = 1) %>%
pat_dygraph(xlab = "2018", rollPeriod = 6)
}
# }
Run the code above in your browser using DataLab