data(weibull_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(weibull_cc, NULL, tuning_parameters = tuning_parameters,
iter = 3, warmup_iter = 1)
# for the treatment group
plots <- plot(out$out, out$out$time_grid, x_pred = c(1))
Run the code above in your browser using DataLab