# \dontshow{
data(apacpwq)
dat <- qaqc(apacpwq, qaqc_keep = c('0', '3', '5'))
y <- raw_boxplot(dat, param = 'do_mgl')
# }
# \donttest{
## get data, prep
data(elksmwq)
dat <- elksmwq
dat <- qaqc(elksmwq, qaqc_keep = c('0', '3', '5'))
raw_boxplot(dat, param = 'do_mgl')
# }
Run the code above in your browser using DataLab