data <- rnorm(n = 100, mean = 100, sd = 10)
params <- c(100, 1, 10)
ns_years <- seq(from = 1901, to = 2000)
ns_structure <- list(location = TRUE, scale = FALSE)
# Compute the log-likelihood
utils_log_likelihood(data, "NOR", params, ns_years, ns_structure)
Run the code above in your browser using DataLab