tests/testthat/test-meta-random-parametric.R

In statsExpressions: Tidy Dataframes and Expressions with Statistical Details

test_that(desc = "meta_analysis works - parametric", code = {
  skip_if_not_installed("metafor")

  set.seed(123)
  df <- meta_analysis(data_meta)

  set.seed(123)
  expect_snapshot(select(df, -expression))
  expect_snapshot(df[["expression"]])

  expect_snapshot(meta_analysis(mtcars), error = TRUE)
})