SLIDE 15 Department of Data Analysis Ghent University
using these bounds with lavaan dev 0.6-6
> fit.semb <- sem(model, data = Data, estimator = "ML", bounds = TRUE) > parTable(fit.semb)[,c(2,3,4,8,13,14,16)] lhs op rhs free lower upper est 1 Y =˜ y1 1.000 1.000 1.000 2 Y =˜ y2 1 -3.689 3.689 1.392 3 Y =˜ y3 2 -3.231 3.231 0.977 4 X =˜ x1 1.000 1.000 1.000 5 X =˜ x2 3 -4.907 4.907 2.023 6 X =˜ x3 4 -3.978 3.978 0.558 7 Y ˜ X 5
Inf -0.104 8 y1 ˜˜ y1 6 -0.431 2.588 1.597 9 y2 ˜˜ y2 7 -0.407 2.445 0.953 10 y3 ˜˜ y3 8 -0.313 1.875 1.029 11 x1 ˜˜ x1 9 -0.283 1.695 0.715 12 x2 ˜˜ x2 10 -0.472 2.834 -0.472 13 x3 ˜˜ x3 11 -0.310 1.863 1.335 14 Y ˜˜ Y 12 0.000 2.803 0.552 15 X ˜˜ X 13 0.141 1.837 0.698
Yves Rosseel Improving The Success Rate Of Optimization Algorithms In Psychometric Software 15 / 19