\begin{Schunk}
\begin{Sinput}
 options(digits=2)
 library(mitools) # MIextract
 betas <- MIextract(allimplogreg, fun = coef)
 vars <- MIextract(allimplogreg, fun = vcov)
 summary(MIcombine(betas, vars))
\end{Sinput}
\begin{Soutput}
Multiple imputation results:
      MIcombine.default(betas, vars)
            results    se (lower upper) missInfo
(Intercept)    4.03 0.532  2.926  5.128     66 %
pclass2nd     -1.44 0.258 -1.951 -0.931     27 %
pclass3rd     -2.71 0.308 -3.339 -2.081     57 %
sexmale       -2.53 0.175 -2.872 -2.184     18 %
age           -0.05 0.011 -0.073 -0.027     73 %
\end{Soutput}
\end{Schunk}
