## artificial data
test <- rRenouv(nb = 100, threshold = 40,
par.N = list(lambda = 2),
densfun.y = "weibull", par.y = mom2par("weibull", mean = 30, sd = 36))
## exponential exceedances
fit.expon <- fRenouv(x.OT = test$x,
sumw.BOT = 100,
distname.y = "exponential",
threshold = 50,
conf.pct = c(70, 95, 99),
main = ""exponential" distr. (special)")Run the code above in your browser using DataLab