# NOT RUN {
#Get an annual maximum sample, estimate the parameters and estimate 50-year RP
AM.27090 <- GetAM(27090)
GEVPars(AM.27090$Flow)
GEVEst(298.6416, 51.37096, -0.04211332, RP = 50)
#Estimate the RP for a 600m3/s discharge
GEVEst(298.6416, 51.37096, -0.04211332, q = 600)
# }
Run the code above in your browser using DataLab