\begin{Schunk}
\begin{Sinput}
 load("/home/pauljohn/SVN/SVN-guides/Rcourse/DataSets/titanic0.rda")
 set.seed(234234)
 titanic <- titanic0
 titanic$sex[sample(nrow(titanic), 400)] <- NA 
 titanic$pclass[sample(nrow(titanic), 400)] <- NA 
 titanic$survived[sample(nrow(titanic), 400)] <- NA
 rmsImputeTitanic <- aregImpute(~ survived + pclass + sex + age + embarked, n.impute=10, data=titanic, nk=3)
\end{Sinput}
\begin{Soutput}
Iteration 1 
Iteration 2 
Iteration 3 
Iteration 4 
Iteration 5 
Iteration 6 
Iteration 7 
Iteration 8 
Iteration 9 
Iteration 10 
Iteration 11 
Iteration 12 
Iteration 13 
\end{Soutput}
\end{Schunk}
