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

  Number of observations per group         
  1                                                195
  2                                                185

  Estimator                                         ML
  Minimum Function Test Statistic                0.000
  Degrees of freedom                                 0
  Minimum Function Value               0.0000000000000

Chi-square for each group:

  1                                              0.000
  2                                              0.000

Parameter Estimates:

  Information                                 Expected
  Standard Errors                             Standard


Group 1 [1]:

Regressions:
                   Estimate  Std.Err  z-value  P(>|z|)
  PosAFF1 ~                                           
    Agency1    (a)    0.326    0.085    3.862    0.000

Intercepts:
                   Estimate  Std.Err  z-value  P(>|z|)
   .PosAFF1           2.317    0.212   10.909    0.000

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


Group 2 [2]:

Regressions:
                   Estimate  Std.Err  z-value  P(>|z|)
  PosAFF1 ~                                           
    Agency1    (b)    0.214    0.099    2.161    0.031

Intercepts:
                   Estimate  Std.Err  z-value  P(>|z|)
   .PosAFF1           2.634    0.245   10.737    0.000

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