powered by
This function fills in gappy streamflow records using a median of discharge ratio from master gages.
gapfillStreamflow(flowlist, paired_gages)
list of gage data and information from getStreamflow
list of gage pairs where pair <- c(gappy,master)
list of:
list of gage site names
list of gage numbers
xts of gap-filled daily average discharge
gages <- c('05551540', '05552500') flow <- getStreamflow('2000-01-01', '2010-12-31', gages) flow <- gapfillStreamflow(flow, list(c(gages[1], gages[2])))
Run the code above in your browser using DataLab