start <- "2010-01-01"
end <- "2010-12-31"
area <- 2707
atm <- getAtmoFlows(start, end, 'sample:Counties', 'STATE', 'RI', 41.5801)
inflow <- getStreamflow(start, end, c("01112500"))
inflow <- combineStreamflow(inflow, c(1))
outflow <- getStreamflow(start, end, c("01113895", "01114000", "01117000",
"01118500"))
outflow <- combineStreamflow(outflow, c(1, 1, 1, 1))
wu <- getWaterUse(c('RI'), 'ALL')
wu <- combineWaterUse(start, end, wu)
data <- mergeData(area, atm, inflow, outflow, wu)
Run the code above in your browser using DataLab