\begin{Schunk}
\begin{Sinput}
 library(lavaan)
 library(semPlot)
 syntax1 <- '
  V =~ v1 + v2
  C =~ c1 + c2
  S =~ s1 + s2'
 mod1 <- cfa(model = syntax1,
              data = dat,
              std.lv = TRUE)
 semPaths(mod1, layout = "tree2")
 
\end{Sinput}
\end{Schunk}
