\begin{Schunk}
\begin{Sinput}
 ## Estimating cfa.01.v01 
 ## with full information maximum likelihood
 cfa.01.v.01.fit.fiml <- 
  cfa(model = cfa.01.v.01, data = depre_i_miss,
      mimic = "Mplus", estimator = "ML",
      missing = "ml", meanstructure = TRUE)
\end{Sinput}
\end{Schunk}
