pkg/tests/test.xtable.R

   1 require(xtable)\r
   2 ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)\r
   3 trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)\r
   4 group <- gl(2,10,20, labels=c("Ctl","Trt"))\r
   5 weight <- c(ctl, trt)\r
   6 lm.D9 <- lm(weight ~ group)\r
   7 class(lm.D9)\r
   8 \r
   9 xtable(lm.D9, caption="\\tt latex.environment=\"center\"")\r
  10 \r
  11 ## % latex table generated in R 2.15.0 by xtable 1.7-1 package\r
  12 ## % Thu Aug 16 15:44:09 2012\r
  13 ## \begin{table}[ht]\r
  14 ## \centering\r
  15 ## \begin{tabular}{rrrrr}\r
  16 ##   \hline\r
  17 ##  & Estimate & Std. Error & t value & Pr($>$$|$t$|$) \\\r
  18 ##   \hline\r
  19 ## (Intercept) & 5.0320 & 0.2202 & 22.85 & 0.0000 \\\r
  20 ##   groupTrt & -0.3710 & 0.3114 & -1.19 & 0.2490 \\\r
  21 ##    \hline\r
  22 ## \end{tabular}\r
  23 ## \caption{\tt latex.environment="center"}\r
  24 ## \end{table}\r