# \donttest{
# priors
p_prior <- b_prior(family="beta", pars=c(1, 1))
tau_prior <- b_prior(family="uniform", pars=c(0, 500))
# attach priors to relevant parameters
priors <- list(c("p", p_prior),
c("tau", tau_prior))
# generate data
s <- rep(1:5, 20)
data <- rbinom(100, size=1, prob=0.6)
# fit
fit <- b_success_rate(r=data, s=s, priors=priors, chains=1)
# }
Run the code above in your browser using DataLab