# \donttest{
priors <- EnsemblePrior(4)
prior_density <- prior_ensemble_model(priors, M = 4)
samples <- sample_prior(observations = list(SSB_obs, Sigma_obs),
simulators = list(list(SSB_miz, Sigma_miz),
list(SSB_ewe, Sigma_ewe),
list(SSB_fs, Sigma_fs),
list(SSB_lm, Sigma_lm)),
priors = priors,
sam_priors = prior_density)
plot(samples) #Plot the prior predictive density.
# }
Run the code above in your browser using DataLab