## Not run:
# ## get data
# data(apadbwq)
# dat <- apadbwq
#
# ## retain only '0' and '-1' flags
# qaqc(dat, qaqc_keep = c('0', '-1'))
#
# ## retain observations with the 'CSM' error code
# qaqc(dat, qaqc_keep = 'CSM')
# ## End(Not run)
Run the code above in your browser using DataLab