data/Lambert88.R

In mikewlcheung/mulsem: Some Multivariate Analyses using Structural Equation Modeling

Lambert88 <-
structure(c(1, 0.69099999999999995, 0.042999999999999997, 0.094, 
-0.5, 0.623, 0.41399999999999998, 0.23100000000000001, 0.14399999999999999, 
0.69099999999999995, 1, 0.091999999999999998, 0.048000000000000001, 
-0.443, 0.38900000000000001, 0.60299999999999998, 0.26400000000000001, 
0.32500000000000001, 0.042999999999999997, 0.091999999999999998, 
1, -0.63900000000000001, -0.251, 0.36399999999999999, 0.26200000000000001, 
0.73099999999999998, 0.64500000000000002, 0.094, 0.048000000000000001, 
-0.63900000000000001, 1, 0.24299999999999999, -0.253, -0.036999999999999998, 
-0.58199999999999996, -0.47899999999999998, -0.5, -0.443, -0.251, 
0.24299999999999999, 1, -0.61399999999999999, -0.58599999999999997, 
0.048000000000000001, 0.079000000000000001, 0.623, 0.38900000000000001, 
0.36399999999999999, -0.253, -0.61399999999999999, 1, 0.73499999999999999, 
0.091999999999999998, 0.056000000000000001, 0.41399999999999998, 
0.60299999999999998, 0.26200000000000001, -0.036999999999999998, 
-0.58599999999999997, 0.73499999999999999, 1, -0.113, 0.14699999999999999, 
0.23100000000000001, 0.26400000000000001, 0.73099999999999998, 
-0.58199999999999996, 0.048000000000000001, 0.091999999999999998, 
-0.113, 1, 0.80000000000000004, 0.14399999999999999, 0.32500000000000001, 
0.64500000000000002, -0.47899999999999998, 0.079000000000000001, 
0.056000000000000001, 0.14699999999999999, 0.80000000000000004, 
1), .Dim = c(9L, 9L), .Dimnames = list(c("y1", "y2", "y3", "y4", 
"x1", "x2", "x3", "x4", "x5"), c("y1", "y2", "y3", "y4", "x1", 
"x2", "x3", "x4", "x5")))