data(data_sem)
dat <- data_med_mod_b_mod
mod <-
'f1 =~ x01 + x02 + x03
f2 =~ x04 + x05 + x06 + x07
f3 =~ x08 + x09 + x10
f4 =~ x11 + x12 + x13 + x14
f3 ~ a1*f1 + a2*f2
f4 ~ b1*f1 + b3*f3
a1b3 := a1 * b3
a2b3 := a2 * b3
'
fit <- lavaan::sem(model = mod, data = data_sem)
summary(fit)
Run the code above in your browser using DataLab