issue with bootstrap anchored

[MikeJSeo]

• bucher function does not work when it is inside stat_fun for anchored.
• If the function is called outside, it seems to work.

Try adding the following code in maic_anchored.R

print("trial")
AC_bootstrap <- list(est = res_AC$est, se = sd(boot_res$t[,4]))
weighted_bucher_bootstrap <- bucher(AC_bootstrap, res_BC)
print(exp(weighted_bucher_bootstrap$ci_l))
print(exp(weighted_bucher_bootstrap$ci_u))
print("end trial")

We get correct confidence interval when you do this. Confidence interval is very similar to robust C.I.

[gravesti]

Try just using AvB point estimate