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