# NOT RUN {
# We need the ismev package
got_ismev <- requireNamespace("ismev", quietly = TRUE)
if (got_ismev) {
library(ismev)
fit1 <- gev.fit(revdbayes::portpirie, show = FALSE)
ls(fit1)
fit2 <- gev_refit(revdbayes::portpirie, show = FALSE)
ls(fit2)
data(rain)
fit1 <- gpd.fit(rain, 10)
ls(fit1)
fit2 <- gpd_refit(rain, 10)
ls(fit2)
fit1 <- pp.fit(rain, 10, show = FALSE)
ls(fit1)
fit2 <- pp_refit(rain, 10, show = FALSE)
ls(fit2)
data(venice)
fit1 <- rlarg.fit(venice[, -1], muinit = 120.54, siginit = 12.78,
shinit = -0.1129, show = FALSE)
ls(fit1)
fit2 <- rlarg_refit(venice[, -1], muinit = 120.54, siginit = 12.78,
shinit = -0.1129, show = FALSE)
ls(fit2)
}
# }
Run the code above in your browser using DataLab