library(semmcci)
library(lavaan)
# Data ---------------------------------------------------------------------
data("Tal.Or", package = "psych")
df <- mice::ampute(Tal.Or)$amp
# Monte Carlo --------------------------------------------------------------
## Fit Model in lavaan -----------------------------------------------------
model <- "
reaction ~ cp * cond + b * pmi
pmi ~ a * cond
cond ~~ cond
"
fit <- sem(data = df, model = model, missing = "fiml")
## MCGeneric() -------------------------------------------------------------
MCGeneric(
fit,
R = 5L, # use a large value e.g., 20000L for actual research
alpha = 0.05,
def = list(
"a * b",
"cp + (a * b)"
)
)
Run the code above in your browser using DataLab