## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(glmbayes)

## ----eval=FALSE---------------------------------------------------------------
# slopeest[i] <- prod(scaleest[i,])