\begin{Schunk}
\begin{Sinput}
 ## Run same model for each imputed data set
 ord.amelia.fits <- list()
 for (i in seq_along(imps)){
      ord.amelia.fits[[i]] <- sem(model = sem.01.ord, data = imps[[i]],
              mimic = "Mplus", estimator = "DWLS")
  }
\end{Sinput}
\end{Schunk}
