tests/testthat/test-cfa_equivalence.R

test_that("Extracted CFI works", {
  model <- "voice =~ voice1m + voice2m + voice3m
            help =~ help1m + help2m + help3m"
  expect_equal(round(equival(x = model, dat = example, group = "country")$DELTACFI,3) , c(NA, 0.010, 0.029))
})

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.