tests/testthat/test-lavaan_rerun_test_md_id_error.R

In semfindr: Influential Cases in Structural Equation Modeling

library(testthat)
library(lavaan)

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

dat <- pa_dat

dat0 <- dat[1:50, ]
dat0[1, 2] <- dat0[2, 3] <- dat0[3, 4] <- dat0[4, ] <- NA
head(dat0)
suppressWarnings(fit0 <- lavaan::sem(mod, dat0, missing = "fiml.x"))

fit0_data <- lavInspect(fit0, "data")
colnames(fit0_data) <- lavNames(fit0)
head(fit0_data)
test_that("md and to_rerun both specified", {
    expect_error(lavaan_rerun(fit0, to_rerun = c(1, 5, 5), md_top = 4, parallel = FALSE))
  })