/usr/share/doc/r-cran-xtable/tests/test.xtable.xtableFtable.R is in r-cran-xtable 1:1.8-2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | ### Test code for xtableFtable function
### David Scott, <d.scott@auckland.ac.nz>, 2016-01-14
library(xtable)
tbl <- ftable(mtcars$cyl, mtcars$vs, mtcars$am, mtcars$gear, row.vars = c(2, 4),
dnn = c("Cylinders", "V/S", "Transmission", "Gears"))
## debug(xtableFtable)
xftbl <- xtableFtable(tbl)
str(xftbl)
unclass(xftbl)
print.xtableFtable(xftbl)
xftbl <- xtableFtable(tbl, method = "row.compact")
print.xtableFtable(xftbl)
xftbl <- xtableFtable(tbl, method = "col.compact")
print.xtableFtable(xftbl)
xftbl <- xtableFtable(tbl, method = "compact")
print.xtableFtable(xftbl)
## debug(print.xtableFtable)
## undebug(print.xtableFtable)
## debug(print.xtable)
## undebug(print.xtable)
|