201709_montana_test.R

# ODIN-SD tests
library(openair)
library(readr)

# ODIN-SD data ####
odin.data <- read_delim("~/data/ODIN_SD/Montana_tests/ODIN-103/montana_sample1.txt",
                              "\t", escape_double = FALSE, col_types = cols(Day = col_character(),
                                                                            Time = col_character()), trim_ws = TRUE)
odin.data$date <- as.POSIXct(paste(odin.data$Day,odin.data$Time),tz='GMT')

# Plotting ####
avgtime = '10 min'
timePlot(odin.data,pollutant = c('PM1','PM2.5','PM10'),
         avg.time = avgtime,
         group = TRUE)

timePlot(odin.data,pollutant = c('Temp', 'RH'),
         avg.time = avgtime,
         y.relation = 'free')