# \donttest{
rawWQP <- dataRetrieval::readWQPdata(siteid = '21FLEECO_WQX-IMPRGR80',
characteristicName = 'Phosphorus',
service = "Result",
dataProfile = "resultPhysChem")
Sample2 <- processQWData(rawWQP)
# }
Run the code above in your browser using DataLab