## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)

## ----eval=FALSE---------------------------------------------------------------
# fit <- fit_ensemble_model(observations = list(SSB_obs, Sigma_obs),
#                                           simulators = list(list(SSB_ewe, Sigma_ewe, "EwE"),
#                                                             list(SSB_lm,  Sigma_lm,  "LeMans"),
#                                                             list(SSB_miz, Sigma_miz, "mizer"),
#                                                             list(SSB_fs,  Sigma_fs,  "FishSUMS")),
#                                           priors = priors,
#                                           sampler = "explicit")

## ----eval=FALSE---------------------------------------------------------------
# ESS_fit <- get_ESS_diag(fit, only_voi = F)

## ----echo=F-------------------------------------------------------------------
knitr::include_graphics("data/ESS_plot.png")

## ----eval = FALSE-------------------------------------------------------------
# 
# ESS_fit_voi <- get_ESS_diag(fit, only_voi = T)
# 

## ----echo=F-------------------------------------------------------------------
knitr::include_graphics("data/ESS_plot1.png")