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

## ----eval=FALSE---------------------------------------------------------------
# # To put prior on ALR_j coordinates for some j in (1,...,D-1)
# Xi <- clrvar2alrvar(S, j)
# # To put prior in a particular ILR coordinate defined by contrast matrix V
# Xi <- clrvar2ilrvar(S, V)
# # To put prior in CLR coordinates (this one needs two transforms)
# foo <- clrvar2alrvar(S, D)
# Xi <- alrvar2clrvar(foo, D)

## ----eval=FALSE---------------------------------------------------------------
# # Transform from log-absolute-abundance effects to effects on absolute-abundances
# foo <- exp(A)
# # To put prior on ALR_j coordinates for some j in (1,...,D-1)
# Theta <- driver::alr_array(foo, j, parts=1)
# # To put prior in a particular ILR coordinate defined by contrast matrix V
# Theta <- driver::ilr_array(foo, V, parts=1)
# # To put prior in CLR coordinates
# Theta <- driver::clr_array(foo, parts=1)