# NOT RUN {
# Convert the stacked qw data supplied in smwrData
#library(smwrData)
data(QWstacked)
QWstacked$result_va <- as.numeric(QWstacked$result_va) # raw data are character
# The units are both mg/l, no analyte name, generate column names from parameter codes
head(importQW(QWstacked, c("site_no", "sample_dt", "sample_tm", "medium_cd"),
"result_va", "remark_cd", "val_qual_tx", "rpt_lev_va", "rpt_lev_cd",
"mg/l", "meth_cd", "", "parm_cd", "parm_cd"))
# A simple example having the minimum information
data(QW05078470)
importQW(QW05078470, c("DATES", "TIMES"), "P00665", "R00665", "", 0.005, "User",
"mg/l", "Unk", "Dissolved Phosporus", "00665", "DissP")
# }
Run the code above in your browser using DataLab