R/prior.study.R

In JinchengZ/BayesCACE: Bayesian Model for CACE Analysis

#' @title prior.study
#' @param prior.type prior type, default is "custom"
#' @return
#' @export
#' 
prior.study <- function(prior.type="custom"){
  
  string2 <-   
  "# priors
  n ~ dnorm(0, 0.01)
  a ~ dnorm(0, 0.01)
  alpha.s ~ dnorm(0, 0.01)
  alpha.b ~ dnorm(0, 0.01)
  alpha.u ~ dnorm(0, 0.01)
  alpha.v ~ dnorm(0, 0.01)
  }"

return(string2)
}