+
set.seed(19292)
samps <- sdmTMBextra::extract_mcmc(fit_stan)
s <- simulate(fit_mle, mcmc_samples = samps, nsim = 50)
-bayesplot::pp_check(
+bayesplot::pp_check(
sim_dat$observed,
yrep = t(s),
- fun = bayesplot::ppc_dens_overlay
+ fun = bayesplot::ppc_dens_overlay
)
-
-See ?bayesplot::pp_check
. The solid line represents the
+
See ?bayesplot::pp_check
. The solid line represents the
density of the observed data and the light blue lines represent the
density of 50 posterior predictive simulations. In this case, the
simulated data seem consistent with the observed data.
@@ -454,30 +302,26 @@