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

## ----setup, eval=FALSE--------------------------------------------------------
#  library(rbioacc)

## ----plotPP, eval=FALSE-------------------------------------------------------
#  data("Male_Gammarus_Single")
#  modelData_MGS <- modelData(Male_Gammarus_Single, time_accumulation = 4)
#  fit_MGS <- fitTK(modelData_MGS, iter = 10, chains = 2)
#  
#  # Compute a dataframe with priors and posteriors
#  df_MGS <- df_PriorPost(fit_MGS)
#  
#  # Compute a plot with priors and posteriors
#  plt_MGS <- plot_PriorPost(fit_MGS)