tests/testthat/test-fit_measurse_change_single_approx.R

In semfindr: Influential Cases in Structural Equation Modeling

library(testthat)
library(lavaan)
library(semfindr)

#context("Test fit measure changes")

mod <-
'
m1 ~ iv1 + iv2
dv ~ m1
'

dat <- pa_dat

# dat0 <- dat[1:50, ]
fit <- lavaan::sem(mod, dat)

fit_measures_change_approx2 <- fit_measures_change_approx(fit)

lli <- lavInspect(fit, what = "loglik.casewise")
mod_h1 <- lav_partable_unrestricted(fit)
fit_h1 <- sem(mod_h1, dat)
lli_h1 <- lavInspect(fit_h1, what = "loglik.casewise")
chisq_change_i_approx <- as.vector(2 * (lli_h1 - lli))

# Need to add tests for CFI and TLI
test_that("Check against known results", {
    expect_equal(ignore_attr = TRUE,
        fit_measures_change_approx2[, "chisq"],
        chisq_change_i_approx
      )
  })