\begin{Schunk}
\begin{Sinput}
 wdir <- "workingdata"
 list.files(wdir)
\end{Sinput}
\begin{Soutput}
[1] "amelia-imps.rds" "mice-05.rds"     "mice-15.rds"     "mice-25.rds"     "mice-35.rds"    
[6] "mice-45.rds"    
\end{Soutput}
\begin{Sinput}
 library(mice)
 miceimputed <- readRDS(file.path(wdir, "mice-45.rds"))
 if(interactive()){
     par(ask=TRUE)
     plot(miceimputed)
  }
\end{Sinput}
\end{Schunk}
