\begin{Schunk}
\begin{Sinput}
 ss <- subset( titanic,   select = c('survived', 'pclass', 'sex', 'age'))  
 inf <- mi.info(ss)
 inf
\end{Sinput}
\begin{Soutput}
     names include order number.mis all.mis                  type collinear
1 survived     Yes     1        400      No                binary        No
2   pclass     Yes     2        400      No unordered-categorical        No
3      sex     Yes     3        400      No                binary        No
4      age     Yes     4        680      No   positive-continuous        No
\end{Soutput}
\end{Schunk}
