# \donttest{
# priors
mu_prior <- b_prior(family="normal", pars=c(0, 1000))
sigma_prior <- b_prior(family="uniform", pars=c(0, 500))
nu_prior <- b_prior(family="normal", pars=c(2000, 1000))
# attach priors to relevant parameters
priors <- list(c("mu", mu_prior),
c("sigma", sigma_prior),
c("nu", nu_prior))
# generate some data
data <- rnorm(20, mean=150, sd=20)
# fit
fit <- b_ttest(data=data, priors=priors, chains=1)
# }
Run the code above in your browser using DataLab