examples/xtable.R

In davidgohel/rtable: Tabular Reporting Functions

data(tli)

tli.table <- xtable(tli[1:10,])
digits(tli.table)[c(2,6)] <- 0
FT = as.FlexTable( x = tli.table )
print( FT )
if( interactive() ) readline("Hit <Return> to see next FlexTable:")


align(tli.table) <- "|rrl|l|lr|"
FT = as.FlexTable( x = tli.table )
print( FT )
if( interactive() ) readline("Hit <Return> to see next FlexTable:")


fm1 <- aov(tlimth ~ sex + ethnicty + grade + disadvg, data=tli)
fm1.table <- xtable(fm1)
FT = as.FlexTable( x = fm1.table )
print( FT )
if( interactive() ) readline("Hit <Return> to see next FlexTable:")


bktbs <- xtable(matrix(1:10, ncol = 2))
hlines <- c(-1,0,1,nrow(bktbs))
FT = as.FlexTable(bktbs, hline.after = hlines )
print( FT )