\begin{Schunk}
\begin{Sinput}
 ord.amelia.betas <- MIextract(ord.amelia.fits, fun = coef)
 ord.amelia.vars <- MIextract(ord.amelia.fits, fun = vcov)
 ord.amelia.fits.pooled <- summary(MIcombine(ord.amelia.betas, ord.amelia.vars))
\end{Sinput}
\end{Schunk}
