tests/testthat/test-est_change_approx_multi_equal.R

In semfindr: Influential Cases in Structural Equation Modeling

skip("Equality constraints are supported in est_change_raw_approx()")
library(testthat)
library(lavaan)
library(semfindr)

# A path model
# fixed.x: TRUE (default)
# Labelled: Some are labelled
# User-defined parameters: At least one

mod <-
'
m1 ~ iv1 + c(a1, a2) * iv2
dv ~ c(b, b) * m1
a2b := a2 * b
'

dat0 <- dat[1:40, ]
set.seed(856041)
dat0$gp <- sample(c("gp2", "gp1"), size = nrow(dat0), replace = TRUE)

fit <- lavaan::sem(mod, dat0, group = "gp")

# test_that("Error if equality constraints", {
#     expect_error(gcd_approx2 <- est_change_approx(fit0))
#   })