# NOT RUN {
#Get a POT sample, estimate the parameters, and estimate 50-year RP
ThamesPOT <- POTextract(ThamesPQ[,c(1,3)], thresh = 0.90)
GenParetoPars(ThamesPOT$peak)
GenParetoEst(174.2862, 127.4085, 0.1805716, ppy = 1.867, RP = 50)
#Estimate the RP for a 600m3/s discharge
GenParetoEst(174.2862, 127.4085, 0.1805716, ppy = 1.867, q = 600)
# }
Run the code above in your browser using DataLab