set.seed(123)
n_sims <- 5 # small number for exemplary application
sim_dat <- list(
"m" = rnorm(n = n_sims, mean = 1.15, sd = 0.1),
"se" = rnorm(n = n_sims, mean = 1.8, sd = 0.3)
)
results <- oc_bias(
m = sim_dat[["m"]],
se = sim_dat[["se"]],
true_effect = 1.15,
weights = seq(0, 1, by = 0.01),
map_prior = load_tipmap_data("tipmapPrior.rds"),
sigma = 16.23,
eval_strategy = "sequential",
n_cores = 1
)
print(results)
Run the code above in your browser using DataLab