siteNumber <- '04085427'
startDate <- '2012-01-01'
endDate <- '2012-06-30'
pCode <- '00060'
## Not run:
# rawDailyQ <- readNWISdv(siteNumber,pCode, startDate, endDate)
# rawDailyQAndTempMeanMax <- readNWISdv(siteNumber,c('00010','00060'),
# startDate, endDate, statCd=c('00001','00003'))
# rawDailyQAndTempMeanMax <- renameNWISColumns(rawDailyQAndTempMeanMax)
# rawDailyMultiSites<- readNWISdv(c("01491000","01645000"),c('00010','00060'),
# startDate, endDate, statCd=c('00001','00003'))
# # Site with no data:
# x <- readNWISdv("10258500","00060", "2014-09-08", "2014-09-14")
# names(attributes(x))
# attr(x, "siteInfo")
# attr(x, "variableInfo")
#
# site <- "05212700"
# notActive <- readNWISdv(site, "00060", "2014-01-01","2014-01-07")
# ## End(Not run)
Run the code above in your browser using DataLab