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.