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 source("../R/xtableFtable.R")
  10
  11 debug(xtableFtable)
  12 xftbl <- xtableFtable(tbl)
  13 str(xftbl)
  14 unclass(xftbl)
  15 print.xtableFtable(xftbl)
  16 xftbl <- xtableFtable(tbl, method = "row.compact")
  17 print.xtableFtable(xftbl)
  18 xftbl <- xtableFtable(tbl, method = "col.compact")
  19 print.xtableFtable(xftbl)
  20 xftbl <- xtableFtable(tbl, method = "compact")
  21 print.xtableFtable(xftbl)
  22 debug(print.xtableFtable)
  23 undebug(print.xtableFtable)
  24 debug(print.xtable)
  25 undebug(print.xtable)
  26