\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:38 2013
\begin{table}[ht]
\centering
\begin{tabular}{rrrrr}
  \hline
 & Estimate & Std. Error & z value & Pr($>$$|$z$|$) \\ 
  \hline
(Intercept) & 4.3706 & 0.4709 & 9.28 & 0.0000 \\ 
  pclass2nd & -1.4617 & 0.2847 & -5.13 & 0.0000 \\ 
  pclass3rd & -2.7442 & 0.3403 & -8.06 & 0.0000 \\ 
  sexmale & -3.0773 & 0.2414 & -12.75 & 0.0000 \\ 
  age & -0.0464 & 0.0088 & -5.30 & 0.0000 \\ 
   \hline
\end{tabular}
\end{table}\end{Schunk}
