## Not run:
# availableData <- whatNWISdata('05114000')
# # To find just unit value ('instantaneous') data:
# uvData <- whatNWISdata('05114000',service="uv")
# uvDataMulti <- whatNWISdata(c('05114000','09423350'),service=c("uv","dv"))
# siteNumbers <- c("01491000","01645000")
# flowAndTemp <- whatNWISdata(siteNumbers, parameterCd=c("00060","00010"))
# ## End(Not run)
Run the code above in your browser using DataLab