| ev_return_period | R Documentation |
For discharges of interest, estimate the corresponding return period.
ev_return_period(x, fit)
x |
numeric vector containing the quantiles |
fit |
object of class |
a numeric vector of return periods.
evfit
data("ngaruroro")
ng <- as.xts(ngaruroro)
# yearly minima
minima <- apply.yearly(ng$discharge, min, na.rm = TRUE)
# fit a Weibull distribution
fit <- evfit(x = as.vector(minima), distribution = "wei")
# compute return periods
minima$rp <- round(ev_return_period(minima, fit), 2)
print(minima)
plot(discharge ~ rp, data = minima,
xlab = "Flow in m^3/s", ylab = "Return period in years")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.