skip_if_not_installed("metaplus")
data(mag, package = "metaplus")
m <- metaplus::metaplus(yi, sei, slab = study, data = mag)
test_that("find_parameters", {
expect_identical(
find_parameters(m),
list(conditional = c("(Intercept)", "tau2"))
)
})
test_that("get_parameters", {
expect_equal(
get_parameters(m)$Estimate,
c(-0.7463, 0.254),
tolerance = 1e-3
)
})
test_that("get_statistic", {
expect_equal(
get_statistic(m)$Statistic,
c(-3.195532, NA),
tolerance = 1e-3
)
})
test_that("find_formula", {
expect_null(find_formula(m))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.