# \donttest{
data(towels)
sensitivity <- meta_sensitivity(
y = logOR, SE = SE, labels = study, data = towels,
d_list = list(prior("cauchy", c(0, .707)),
prior("norm", c(0, .5)),
prior("norm", c(.5, .3))),
tau_list = list(prior("invgamma", c(1, 0.15), label = "tau"),
prior("gamma", c(1.5, 3), label = "tau")),
analysis = "random",
combine_priors = "crossed")
print(sensitivity, digits = 2)
par(mfrow = c(1,2))
plot(sensitivity, "d", "prior")
plot(sensitivity, "d", "posterior")
plot(sensitivity, "tau", "prior")
plot(sensitivity, "tau", "posterior")
# }
Run the code above in your browser using DataLab