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)
})

Try the ccpsyc package in your browser

Any scripts or data that you put into this service are public.

ccpsyc documentation built on May 11, 2022, 9:06 a.m.