# Set custom autofit control with shorter time limit
autofit_ctrl <- set_autofit_control(
max_time = list(time = 30, unit = "mins"),
sample_extend = 2000
)
# Set custom convergence checks with stricter criteria
conv_checks <- set_convergence_checks(
max_Rhat = 1.01,
min_ESS = 1000
)
if (FALSE) {
# Use in RoBMA function
fit <- RoBMA(d = c(0.5, 0.3, 0.1),
se = c(0.2, 0.15, 0.1),
autofit_control = autofit_ctrl,
convergence_checks = conv_checks)
}
Run the code above in your browser using DataLab