\begin{Schunk}
\begin{Sinput}
 fits.mice <- with(data = miceimputed, exp = 
    sem(model = sem.01.int, mimic = "Mplus",
        estimator = "ML"))
\end{Sinput}
\end{Schunk}
