\begin{Schunk}
\begin{Sinput}
 cfa.mod <- '
  Agency =~ Agency1
  Agency =~ Agency2
  Agency =~ Agency3
  Intrinsic =~ Intrin1
  Intrinsic =~ Intrin2
  Intrinsic =~ Intrin3
  Extrinsic =~ Extrin1
  Extrinsic =~ Extrin2
  Extrinsic =~ Extrin3
  Positive =~ PosAFF1
  Positive =~ PosAFF2
  Positive =~ PosAFF3
  Negative =~ NegAFF1
  Negative =~ NegAFF2
  Negative =~ NegAFF3
  '
\end{Sinput}
\end{Schunk}
