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