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