#Extract an AMAX sample and quantify uncertainty for the Gumbel estimated 50-year flow.
AM.203018 <- GetAM(203018)
Bootstrap(AM.203018$Flow, Stat = GumbelAM, RP = 50)
#Quantify uncertainty for the sample standard deviation at the 90 percent confidence level
Bootstrap(AM.203018$Flow, Stat = sd, Conf = 0.90)
#Return the sampling distribution of the mean and plot an associated histogram
SampDist <- Bootstrap(AM.203018$Flow, Stat = mean, ReturnSD = TRUE)
hist(SampDist)
Run the code above in your browser using DataLab