\begin{Schunk}
\begin{Sinput}
 ordvars <- grep("^.*_o$", colnames(imps[[1]]), value = TRUE)
 ## Re-create the integer coded variables
 for(i in seq_along(imps)){
      oneds <- imps[[i]]
      for(j in ordvars){
          newvar <- as.integer(oneds[ , j])
          newname <- gsub("_o$", "_i", j)
          oneds[ , newname] <- as.integer(oneds[ , j])
      }
      imps[[i]] <- oneds
  }
\end{Sinput}
\end{Schunk}
