par_estimates <- as_mcmc(sampled_forstmann)
par_estimates_sample_stage <- as_mcmc(sampled_forstmann, filter = "sample")
rand_eff <- as_mcmc(
sampled_forstmann,
selection = "alpha",
filter = "sample"
)
Run the code above in your browser using DataLab