20231116 - cleanup code

08-Structural-Equation-Modeling.Rmd

@@ -594,14 +594,14 @@ formativeModel3_syntax <- '
   v4 ~~ 0*v4
   
   # Calculate the unstandardized weights to form the formative latent variable
-  w1:= (-l32 + l22*l33 + l34*l42 - l22*l34*l43)/(
+  w1 := (-l32 + l22*l33 + l34*l42 - l22*l34*l43)/(
     1 - l11*l32 - l21*l33 + l11*l22*l33 - l34*l41 + l11*l34*l42 + 
      l21* l34* l43 - l11* l22* l34* l43)
-  w2:= (-l33 + l34*l43)/(1 - l11*l32 - l21*l33 + 
+  w2 := (-l33 + l34*l43)/(1 - l11*l32 - l21*l33 + 
       l11*l22*l33 - l34*l41 + l11*l34*l42 + l21*l34*l43 - l11*l22*l34*l43)
-  w3:= 1/(1 - l11*l32 - l21*l33 + l11*l22*l33 -
+  w3 := 1/(1 - l11*l32 - l21*l33 + l11*l22*l33 -
       l34*l41 + l11*l34*l42 + l21*l34*l43 - l11*l22*l34*l43)
-  w4:= -l34/(1 - l11*l32 - l21*l33 + l11*l22*l33 -
+  w4 := -l34/(1 - l11*l32 - l21*l33 + l11*l22*l33 -
       l34*l41 + l11*l34*l42 + l21*l34*l43 - l11*l22*l34*l43)
   
   # Calculate the variances
@@ -697,10 +697,10 @@ formativeModel4_syntax <- '
   varv4 := ((l41) * (varformative)) * (l41) + ((1) * (varnu3)) * (1)
   
   # Calculate the standardized weights to form the formative latent variable
-  wstdv1:=((w1) * (sqrt(varv1))) * (1/sqrt(varformative))
-  wstdv2:=((w2) * (sqrt(varv2))) * (1/sqrt(varformative))
-  wstdv3:=((w3) * (sqrt(varv3))) * (1/sqrt(varformative))
-  wstdv4:=((w4) * (sqrt(varv4))) * (1/sqrt(varformative))
+  wstdv1 := ((w1) * (sqrt(varv1))) * (1/sqrt(varformative))
+  wstdv2 := ((w2) * (sqrt(varv2))) * (1/sqrt(varformative))
+  wstdv3 := ((w3) * (sqrt(varv3))) * (1/sqrt(varformative))
+  wstdv4 := ((w4) * (sqrt(varv4))) * (1/sqrt(varformative))
 '
 
 formativeModel4Fit <- sem(