\begin{Schunk}
\begin{Sinput}
 allimplogreg <- lapply(titanic.amelia$imputations, function(x){
      glm(survived ~ pclass + sex + age, family = binomial, data = x)
  })
\end{Sinput}
\end{Schunk}
