m1 <- '
# Outer Model
X =~ x1 + x2 + x3
Z =~ z1 + z2 + z3
Y =~ y1 + y2 + y3
# Inner Model
Y ~ X + Z + X:Z
'
if (FALSE) {
est_lms <- modsem(m1, oneInt, method = "lms")
centered_estimates(est_lms)
}
Run the code above in your browser using DataLab