pkg/tests/test.xtable.xtableFtable.R

   1 ### Test code for xtableFtable function
   2 ### David Scott, <d.scott@auckland.ac.nz>, 2016-01-14
   3 library(xtable)
   4
   5
   6 tbl <- ftable(mtcars$cyl, mtcars$vs, mtcars$am, mtcars$gear, row.vars = c(2, 4),
   7               dnn = c("Cylinders", "V/S", "Transmission", "Gears"))
   8
   9 ## debug(xtableFtable)
  10 xftbl <- xtableFtable(tbl)
  11 str(xftbl)
  12 unclass(xftbl)
  13 print.xtableFtable(xftbl)
  14 xftbl <- xtableFtable(tbl, method = "row.compact")
  15 print.xtableFtable(xftbl)
  16 xftbl <- xtableFtable(tbl, method = "col.compact")
  17 print.xtableFtable(xftbl)
  18 xftbl <- xtableFtable(tbl, method = "compact")
  19 print.xtableFtable(xftbl)
  20 ## debug(print.xtableFtable)
  21 ## undebug(print.xtableFtable)
  22 ## debug(print.xtable)
  23 ## undebug(print.xtable)
  24