\begin{Schunk}
\begin{Sinput}
 cbind("Amelia"="Amelia",df1[ , 1:2 ], "rms"="rms", rmsTitanicMItools[,1:2])
\end{Sinput}
\begin{Soutput}
            Amelia   est std.err rms results     se
(Intercept) Amelia  4.03   0.532 rms   4.245 0.5458
pclass2nd   Amelia -1.44   0.258 rms  -1.370 0.3132
pclass3rd   Amelia -2.71   0.308 rms  -2.859 0.4361
sexmale     Amelia -2.53   0.175 rms  -2.380 0.2273
age         Amelia -0.05   0.011 rms  -0.055 0.0093
\end{Soutput}
\begin{Sinput}
 cbind( "mi"="mi", round(miTitanicResult,2),  "mice"="mice", round(summary(pool(miceFitTitanic)),2)[,1:3])
\end{Sinput}
\begin{Soutput}
            mi   b       se     t       mice   est     se     t      
(Intercept) "mi" "4.81"  "0.68" "7.07"  "mice" "3.97"  "1.03" "3.87" 
pclass2nd   "mi" "-1.4"  "0.48" "-2.89" "mice" "-1.24" "0.4"  "-3.12"
pclass3rd   "mi" "-3.79" "0.67" "-5.67" "mice" "-2.81" "0.41" "-6.92"
sexmale     "mi" "-2.56" "1"    "-2.57" "mice" "-2.31" "0.35" "-6.55"
age         "mi" "-0.06" "0.02" "-3.31" "mice" "-0.05" "0.02" "-2.48"
\end{Soutput}
\end{Schunk}
