\begin{Schunk}
\begin{Sinput}
 fullglm <- glm(survived ~ pclass + sex + age, family = binomial, data = titanic0)
 library(xtable)
 tout <- xtable(fullglm)
 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.5222 & 0.4710 & 9.60 & 0.0000 \\ 
  pclass2nd & -1.4952 & 0.2820 & -5.30 & 0.0000 \\ 
  pclass3rd & -2.8413 & 0.3389 & -8.38 & 0.0000 \\ 
  sexmale & -3.0867 & 0.2411 & -12.80 & 0.0000 \\ 
  age & -0.0493 & 0.0087 & -5.65 & 0.0000 \\ 
   \hline
\end{tabular}
\end{table}\end{Schunk}
