data(Fort)
fit <- fevd(Prec, threshold = 2, data = Fort,
location.fun = ~cos(2 * pi * day /365.25),
type = "PP", verbose = TRUE)
v <- make.qcov(fit, vals=list(mu1 = c(cos(2 * pi * 1 /365.25),
cos(2 * pi * 120 /365.25), cos(2 * pi * 360 /365.25))))
ci(fit, return.period = 100, qcov = v)
if (FALSE) {
fit <- fevd(Prec, threshold = 2, data = Fort,
location.fun = ~cos(2 * day /365.25),
type = "PP", method = "Bayesian", verbose = TRUE)
ci(fit, return.period = 100, qcov = v)
}
Run the code above in your browser using DataLab