library(dataRetrieval)
rawSample <- readWQPqw('USGS-01594440','', '', '')
rawSampleSelect <- processQWData(rawSample)
rawWQP <- readWQPqw('21FLEECO_WQX-IMPRGR80','Phosphorus', '', '')
Sample2 <- processQWData(rawWQP)
Run the code above in your browser using DataLab