\begin{Schunk}
\begin{Sinput}
 ldglm <- glm(survived ~ pclass + sex + age, family =binomial, data = titanic)
 library(xtable)
 tout <- xtable(ldglm)
 print(tout, type = "latex")
\end{Sinput}
% latex table generated in R 3.0.1 by xtable 1.7-1 package
% Mon Jun 10 08:30:40 2013
\begin{table}[ht]
\centering
\begin{tabular}{rrrrr}
  \hline
 & Estimate & Std. Error & z value & Pr($>$$|$z$|$) \\ 
  \hline
(Intercept) & 5.9001 & 0.9254 & 6.38 & 0.0000 \\ 
  pclass2nd & -2.1114 & 0.5233 & -4.03 & 0.0001 \\ 
  pclass3rd & -4.4776 & 0.7632 & -5.87 & 0.0000 \\ 
  sexmale & -3.6943 & 0.5480 & -6.74 & 0.0000 \\ 
  age & -0.0657 & 0.0162 & -4.07 & 0.0000 \\ 
   \hline
\end{tabular}
\end{table}\end{Schunk}
