# NOT RUN {
site1 <- whatWQPdata(siteid="USGS-01594440")
type <- "Stream"
sites <- whatWQPdata(countycode="US:55:025",siteType=type)
lakeSites <- whatWQPdata(siteType = "Lake, Reservoir, Impoundment", statecode = "US:55")
# }
Run the code above in your browser using DataLab