\begin{Schunk}
\begin{Sinput}
 syntax2 <- '
  V =~ v1 + v2
  C =~ c1 + c2
  S =~ s1 + s2
  C ~ V + S'
 mod2 <- sem(model = syntax2,
              data = dat,
              std.lv = TRUE)
 semPaths(mod2, layout = "tree")
\end{Sinput}
\end{Schunk}
