# Example SEM model
sem_model <- "
Ydiff ~ b1 * M1diff + cp * 1
M1diff ~ a1 * 1
indirect := a1 * b1
total := cp + indirect
"
# Example imputed datasets
imputations <- list(
data.frame(M1diff = rnorm(100), Ydiff = rnorm(100)),
data.frame(M1diff = rnorm(100), Ydiff = rnorm(100))
)
# Compute Monte Carlo confidence intervals
result <- MCMI2(
sem_model = sem_model,
imputations = imputations,
R = 1000,
alpha = c(0.05, 0.01),
seed = 123
)
Run the code above in your browser using DataLab