# \dontshow{
data(apacpwq)
dat <- qaqc(apacpwq, qaqc_keep = c('0', '3', '5'))
x <- historical_daily_range(dat, param = 'do_mgl', target_yr = 2012)
# }
# \donttest{
data(apacpwq)
dat <- apacpwq
dat <- qaqc(apacpwq, qaqc_keep = c('0', '3', '5'))
# with criteria
y <- historical_daily_range(dat, param = 'do_mgl', target_yr = 2013, criteria = 2)
# w/o criteria
z <- historical_daily_range(dat, param = 'do_mgl', target_yr = 2013)
# add a y label
zz <- z + labs(x = NULL, y = "Dissolved Oxygen (mg/L)")
# }
Run the code above in your browser using DataLab