\begin{Schunk}
\begin{Sinput}
 require(mitools)
 rmsbetas <- MIextract(rmsFmiTitanic$fits, fun=coef)
 rmsvars <- MIextract(rmsFmiTitanic$fits, fun=vcov)
 rmsTitanicMItools <- summary(MIcombine(rmsbetas,rmsvars))
\end{Sinput}
\begin{Soutput}
Multiple imputation results:
      MIcombine.default(rmsbetas, rmsvars)
            results     se (lower upper) missInfo
(Intercept)   4.245 0.5458  3.112  5.378     68 %
pclass2nd    -1.370 0.3132 -2.008 -0.733     55 %
pclass3rd    -2.859 0.4361 -3.789 -1.929     80 %
sexmale      -2.380 0.2273 -2.840 -1.920     51 %
age          -0.055 0.0093 -0.074 -0.036     62 %
\end{Soutput}
\end{Schunk}
