skip_if_not_installed("metaBMA")
data(towels, package = "metaBMA")
set.seed(123)
mf <- metaBMA::meta_fixed(logOR,
SE,
study,
data = towels,
d = metaBMA::prior("norm", c(mean = 0, sd = 0.3), lower = 0)
)
test_that("get_priors-metaBMA", {
priors <- get_priors(mf)
expect_identical(priors$Distribution, "Normal")
expect_equal(priors$Scale, 0.3, tolerance = 1e-2)
})
set.seed(123)
mr <- suppressWarnings(
metaBMA::meta_random(logOR, SE, study,
data = towels,
d = metaBMA::prior("cauchy", c(location = 0, scale = 0.707)),
tau = metaBMA::prior("invgamma", c(shape = 1, scale = 0.15))
)
)
test_that("get_priors-metaBMA", {
priors <- get_priors(mr)
expect_identical(priors$Distribution, c("Student's t", "Inverse gamma"))
expect_equal(priors$Scale, c(0.707, 0.15), tolerance = 1e-2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.