\begin{Schunk}
\begin{Sinput}
 sqrt(diag(vcov(rmsFmiTitanic)))
\end{Sinput}
\begin{Soutput}
(Intercept)   pclass2nd   pclass3rd     sexmale         age 
     0.3041      0.2097      0.1986      0.1569      0.0057 
\end{Soutput}
\begin{Sinput}
 (rmsTitanicResult <- cbind(b=rmsFmiTitanic$coefficients, se=diag(vcov(rmsFmiTitanic))))
\end{Sinput}
\begin{Soutput}
                 b      se
(Intercept)  4.245 9.2e-02
pclass2nd   -1.370 4.4e-02
pclass3rd   -2.859 3.9e-02
sexmale     -2.380 2.5e-02
age         -0.055 3.2e-05
\end{Soutput}
\end{Schunk}
