# Initialize example data and params
data <- rnorm(n = 100, mean = 100, sd = 10) + seq(from = 1, to = 100)
years <- seq(from = 1901, to = 2000)
structure <- list(location = TRUE, scale = FALSE)
# Evaluate model diagnostics
results <- model_assessment(data, "NOR", "MLE", NULL, years, structure)
# Generate a model assessment plot
plot_nsffa_assessment(results)
Run the code above in your browser using DataLab