\begin{Schunk}
\begin{Sinput}
 sem.01.int <- '
  ## the measurement model
  gotBully =~ NA*gotBu1_i + gotBu2_i + gotBu3_i
               + gotBu4_i + gotBu5_i + gotBu6_i
               + gotBu7_i + gotBu8_i + gotBu9_i
  gotBully ~~ 1*gotBully
  
  alcohol =~ NA*alc1_i + alc2_i + alc3_i
              + alc4_i + alc5_i
  alcohol ~~ 1*alcohol
  
  # regress 
  alcohol ~ gotBully
  '
\end{Sinput}
\end{Schunk}
