library(lavaan)
mod1 <-
"
x4 ~ x1
x7 ~ x4
"
mod2 <-
"
x1 ~ x4
x7 ~ x4
"
fit1 <- sem(mod1,
HolzingerSwineford1939,
fixed.x = FALSE)
fit2 <- sem(mod2,
HolzingerSwineford1939,
fixed.x = FALSE)
out1 <- model_set(fit1)
out2 <- model_set(fit2)
out1
out2
outb <- model_set_combined(
list(fit1 = out1,
fit2 = out2))
outb
Run the code above in your browser using DataLab