\begin{Schunk}
\begin{Sinput}
 sem.01.int.fits <- list()
 for(i in seq_along(imps)){
      sem.01.int.fits[[i]] <- sem(model = sem.01.int, mimic = "Mplus",
                        estimator = "ML", data = imps[[i]])
  }
\end{Sinput}
\end{Schunk}
