# Get an annual maximum sample, estimate the parameters, and estimate the 50-year RP
am_27090 <- GetAM(27090)
GEVPars(am_27090$Flow)
# Store the parameters in an object
pars <- as.numeric(GEVPars(am_27090$Flow))
# Get an estimate of 50-year flow
GEVEst(pars[1], pars[2], pars[3], RP = 50)
# Estimate the RP for a 600 m^3/s discharge
GEVEst(pars[1], pars[2], pars[3], q = 600)
Run the code above in your browser using DataLab