# NOT RUN {
#Get an annual maximum sample, estimate the parameters and simulate a sample of
#size 30 the parameters using Lmoments (with GenLog)
AM.27090 <- GetAM(27090)
GenLogPars(AM.27090$Flow)
SimData(30, pars = c(298.6416, 51.37096, -0.04211332), dist = "GenLog")
#calculate the Lmoments and simulate a sample of 30 with GF inputs
Lmoms(AM.27090$Flow)
SimData(30, GF = c(0.1704826, 0.04211332, median(AM.27090$Flow)), dist = "GenLog")
# }
Run the code above in your browser using DataLab