# Fit a nonstationary model
data <- rnorm(n = 100, mean = 100, sd = 10)
years <- seq(from = 1901, to = 2000)
ns_structure <- list(location = TRUE, scale = FALSE)
results <- fit_mle(
data,
"GEV",
ns_years = years,
ns_structure = ns_structure
)
# Generate the plot
plot_nsffa_estimates(results)
Run the code above in your browser using DataLab