\begin{Schunk}
\begin{Sinput}
 moderate.mod2 <- 'PosAFF1 ~ c(a, a)*Agency1' 
 out.mod2 <- sem(moderate.mod2, data = dat, group = "Sex") 
 summary(out.mod2)
\end{Sinput}
\begin{Soutput}
lavaan (0.5-23.1097) converged normally after  17 iterations

  Number of observations per group         
  1                                                195
  2                                                185

  Estimator                                         ML
  Minimum Function Test Statistic                0.747
  Degrees of freedom                                 1
  P-value (Chi-square)                           0.388

Chi-square for each group:

  1                                              0.315
  2                                              0.432

Parameter Estimates:

  Information                                 Expected
  Standard Errors                             Standard


Group 1 [1]:

Regressions:
                   Estimate  Std.Err  z-value  P(>|z|)
  PosAFF1 ~                                           
    Agency1    (a)    0.279    0.064    4.336    0.000

Intercepts:
                   Estimate  Std.Err  z-value  P(>|z|)
   .PosAFF1           2.434    0.164   14.829    0.000

Variances:
                   Estimate  Std.Err  z-value  P(>|z|)
   .PosAFF1           0.370    0.038    9.874    0.000


Group 2 [2]:

Regressions:
                   Estimate  Std.Err  z-value  P(>|z|)
  PosAFF1 ~                                           
    Agency1    (a)    0.279    0.064    4.336    0.000

Intercepts:
                   Estimate  Std.Err  z-value  P(>|z|)
   .PosAFF1           2.476    0.164   15.087    0.000

Variances:
                   Estimate  Std.Err  z-value  P(>|z|)
   .PosAFF1           0.482    0.050    9.618    0.000
\end{Soutput}
\end{Schunk}
