priors <- EnsemblePrior(4)
mod <- get_mcmc_ensemble_model(priors)
ensemble_data <- EnsembleData(observations = list(SSB_obs, Sigma_obs),
simulators = list(list(SSB_ewe, Sigma_ewe, "EwE"),
list(SSB_fs, Sigma_fs, "FishSUMS"),
list(SSB_lm, Sigma_lm, "LeMans"),
list(SSB_miz, Sigma_miz, "mizer")),
priors = priors)
# \donttest{
out <- rstan::sampling(mod, ensemble_data@stan_input, chains = 1)
# }
Run the code above in your browser using DataLab