R/print.fdt_cat.multiple.R

In fdth: Frequency Distribution Tables, Histograms and Polygons

print.fdt_cat.multiple <- function (x,
                                    columns=1:6,
                                    round=2,
                                    row.names=FALSE, 
                                    right=TRUE, ...)
{

 tnames <- names(x)
 
  for (i in 1:length(tnames)) {

   res <- x[tnames[i]][[tnames[i]]] 
   #res <- x[[tnames[i]]]
   
   if(is.list(res)){
   res <- cbind(res[[1]][, 1],
                round(res[[1]][, 2:6],
                      round))[columns]
   }
   cat(tnames[i], '\n')

   names(res) <- c('Category',
                   'f', 
                   'rf', 
                   'rf(%)', 
                   'cf',
                   'cf(%)')[columns]

   print.data.frame(res,
                    row.names=row.names,
                    right=right, ...)

   cat('\n')
  }
}