\begin{Schunk}
\begin{Sinput}
 library(Amelia) # generate multiple imputations 
 titanic.amelia <- amelia(subset(titanic, select = c('survived', 'pclass', 'sex', 'age', 'embarked')), m = 10,  noms = c('survived', 'pclass', 'sex', 'embarked'), 
  emburn = c(500, 500), p2s = F)
\end{Sinput}
\end{Schunk}
