tests/testthat/test-mg_ptable_pop_yaml_2_ind.R

In power4mome: Power Analysis for Moderation and Mediation

library(testthat)
library(lavaan)

test_that("Multigroup models: .ind.", {

mod <-
"
m ~ x
y ~  m + x
"

mod_es1 <- list(".ind.(x->m->y)" = "mi",
                "y ~ x" = c("m", "l", "n"))

mod_es2 <-
"
.ind.(y~m~x): mi
y ~ x: [m, l, nil]
"

pop_es_yaml(mod_es2)

chk1 <- ptable_pop(mod, mod_es1)
chk2 <- ptable_pop(mod, mod_es2)

expect_equal(chk1$start,
             chk2$start,
             tolerance = 1e-1)

})