pkg/tests/test.xtable.R

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