powered by
This function combines streamflow data from multiple gages, averaging records according to a multiplier list
combineStreamflow(flowlist, mult, approx = FALSE)
list of flow data, output of getStreamflow or gapfillStreamflow
list of multipliers, one for each gage
option to interpolate missing values
total flow for each timestep (as xts)
gages <- c('05551540', '05552500') flow <- getStreamflow('2000-01-01', '2010-12-31', gages) flow <- gapfillStreamflow(flow, list(c(gages[1], gages[2]))) flow <- combineStreamflow(flow, c(0.5, 0.5))
Run the code above in your browser using DataLab