## Not run: 
# fit <- brm(count ~ log_Age_c + log_Base4_c * Trt_c 
#            + (1|patient) + (1|visit), 
#            data = epilepsy, family = "poisson")  
# pairs(fit, pars = parnames(fit)[1:3], exact_match = TRUE)
# pairs(fit, pars = "^sd")
# ## End(Not run)
Run the code above in your browser using DataLab