# Get some catchment descriptors and form a pooling group. It's urban and
# therefore the site of interest is not included
cds_27083 <- GetCDs(27083)
pool_27083 <- Pool(cds_27083)
# Get results for the ungauged case, with urban adjustment
PoolEst(pool_27083, QMED = 12, UrbAdj = TRUE, CDs = cds_27083)
# Form the group again with the urban gauge included & undertake a gauged estimate
# with urban adjustment. QMED in this example is estimated as the median of the annual
# maximum series for site 27083.
pool_g_27083 <- Pool(cds_27083, iug = TRUE, DeUrb = TRUE)
PoolEst(pool_g_27083, QMED = 12.5, UrbAdj = TRUE, CDs = cds_27083)
Run the code above in your browser using DataLab