\begin{Schunk}
\begin{Sinput}
 options(digits = 2)
 library(mitools) # MIextract
 betas <- MIextract(allimplogreg, fun = coef)
 vars <- MIextract(allimplogreg, fun = vcov)
 se.glm <- MIextract(allimplogreg, fun = function(x){sqrt(diag(vcov(x)))}) 
\end{Sinput}
\end{Schunk}
