\begin{Schunk}
\begin{Sinput}
 set15 <- mice.mids(set5, maxit = 10)
 ## That was not adequate keep going
 set25 <- mice.mids(set15, maxit = 10)
 ## Inadequate, keep going
 set30 <- mice.mids(set25, maxit = 5)
 ## Expectations crashed that was not good
 set45 <- mice.mids(set45, maxit = 25)
 ## Stop there, I had enough
 saveRDS(set45, file.path(wdir, "mice-45.rds"))
\end{Sinput}
\end{Schunk}
