if (FALSE) {
# Latent interaction estimated with LMS and standardized afterwards
syntax <- "
X =~ x1 + x2 + x3
Y =~ y1 + y2 + y3
Z =~ z1 + z2 + z3
Y ~ X + Z + X:Z
"
fit <- modsem_da(syntax, data = oneInt, method = "lms")
sfit <- standardize_model(fit, monte.carlo = TRUE)
# Compare unstandardized vs. standardized summaries
summary(fit) # unstandardized
summary(sfit) # standardized
}
Run the code above in your browser using DataLab