tests/testthat/test_skip_ci_mc_2.R

In manymome: Mediation, Moderation and Moderated-Mediation After Model Fitting

library(testthat)
library(manymome)
suppressMessages(library(lavaan))

test_that("skip_ci", {

dat <- modmed_x1m3w4y1
mod <-
"
m1 ~ x
m2 ~ x
y ~ m1 + m2 + x
"
fit <- sem(mod,
           dat)
mc_out <- do_mc(fit = fit,
                R = 40,
                parallel = FALSE,
                progress = FALSE,
                seed = 53253)

out_mc1 <- indirect_effect(x = "x", y = "y",
                     m = c("m1"),
                     fit = fit,
                     mc_ci = TRUE,
                     mc_out = mc_out,
                     internal_options = list(skip_ci = TRUE))
out_mc2 <- indirect_effect(x = "x", y = "y",
                     m = c("m2"),
                     fit = fit,
                     mc_ci = TRUE,
                     mc_out = mc_out,
                     internal_options = list(skip_ci = TRUE))
out_mc12 <- out_mc1 + out_mc2
expect_true(all(is.na(out_mc12$mc_ci)))

outb_mc1 <- indirect_effect(x = "x", y = "y",
                     m = c("m1"),
                     fit = fit,
                     mc_ci = TRUE,
                     mc_out = mc_out)
outb_mc2 <- indirect_effect(x = "x", y = "y",
                     m = c("m2"),
                     fit = fit,
                     mc_ci = TRUE,
                     mc_out = mc_out)
outb_mc12 <- outb_mc1 + outb_mc2
expect_true(all(!is.na(outb_mc12$mc_ci)))

outc_mc12 <- out_mc1 + outb_mc2
expect_true(all(is.na(outc_mc12$mc_ci)))

})