tests/testthat/test-dmacs_multi.R

test_that("multiplication works", {
  result <- multi_group_eff(df = example, group = "country", items = paste0("voice",1:3, "m"))
  expect_equal(nrow(result$average), 15)
  expect_equal(mean(result$average$sd), 0.277332894)
})
Jo-Karl/ccpsyc documentation built on Oct. 15, 2022, 3:20 p.m.