#Get a ungauged pooled Lcv and LSkew for catchment 15006
PooledRes <- as.numeric(QuickResults(GetCDs(15006), plot = FALSE)[[2]])
#Calculate Kappa growth factor for the 100-year flood
Kappa3GF(PooledRes[1], PooledRes[2], RP = 100)
Run the code above in your browser using DataLab