\begin{Schunk}
\begin{Sinput}
 d <- datadist(titanic)
 options(datadist="d")
 summary(fmi2)
\end{Sinput}
\begin{Soutput}
             Effects              Response : survived 

 Factor            Low High Diff. Effect S.E. Lower 0.95 Upper 0.95
 age               21  41   20    -1.11  0.19 -1.47      -0.74     
  Odds Ratio       21  41   20     0.33    NA  0.23       0.48     
 pclass - 1st:3rd   3   1   NA     2.86  0.44  2.00       3.71     
  Odds Ratio        3   1   NA    17.44    NA  7.42      41.01     
 pclass - 2nd:3rd   3   2   NA     1.49  0.32  0.87       2.11     
  Odds Ratio        3   2   NA     4.43    NA  2.38       8.26     
 sex - female:male  2   1   NA     2.38  0.23  1.93       2.83     
  Odds Ratio        2   1   NA    10.80    NA  6.92      16.87     
\end{Soutput}
\end{Schunk}
