# measurement model with 4 superordinate factors mylavaan2 <- " F1 =~ C + I + J F2 =~ A + B F3 =~ D + E + G F4 =~ F + H F1 ~~ 1*F1 F2 ~~ 1*F2 F3 ~~ 1*F3 F4 ~~ 1*F4 F1 ~~ F2 F1 ~~ F3 F1 ~~ F4 F2 ~~ F3 F2 ~~ F4 F3 ~~ F4 " names <- c("A","B","C","D","E","F","G","H","I","J") myRAM2 <- lavaan2RAM(model = mylavaan2, obs.variables = names, std.lv = T) tssem2model2 <- tssem2(tssem1.obj = tssem1pooled, RAM = myRAM2 , diag.constraints=T, intervals="LB") summary(tssem2model2) tssem2model2_rerun <- metaSEM::rerun(tssem2model2) summary(tssem2model2_rerun)