## Not run: 
# fit <- brm(rating ~ treat + period + carry + (1|subject), 
#            data = inhaler, family = "cumulative")
# 
# #extract posterior samples of fixed effects 
# samples1 <- posterior_samples(fit, "^b")
# head(samples1)
# 
# #extract posterior samples of standard deviations of random effects
# samples2 <- posterior_samples(fit, "^sd")
# head(samples2)
# ## End(Not run)
Run the code above in your browser using DataLab