example1_GLM.R
## ----message=FALSE, warning=FALSE----------------------------------------
library(rstanarm)
library(bayestestR)
## ----message=FALSE, warning=FALSE, eval=FALSE----------------------------
# model <- stan_glm(Sepal.Length ~ Petal.Length, data=iris)
## ----echo=FALSE, message=FALSE, warning=FALSE, comment=NA, results='hide'----
library(rstanarm)
set.seed(333)
model <- stan_glm(Sepal.Length ~ Petal.Length, data=iris)
## ----message=FALSE, warning=FALSE, eval=FALSE----------------------------
# posteriors <- insight::get_parameters(model)
## ----message=FALSE, warning=FALSE, eval=FALSE----------------------------
# plot(density(posteriors$Petal.Length))