data(piecewise_exp_cc, package = "BayesFBHborrow")
# Set your tuning parameters
tuning_parameters <- list("Jmax" = 5,
"pi_b" = 0.5,
"cprop_beta" = 0.5)
# run the MCMC sampler
out <- BayesFBHborrow(piecewise_exp_cc, NULL, tuning_parameters = tuning_parameters,
iter = 3, warmup_iter = 1)
# Create a summary of the output
summary(out$out, estimator = "out_fixed")
Run the code above in your browser using DataLab