R/print.fdt.multiple.R

In fdth: Frequency Distribution Tables, Histograms and Polygons

print.fdt.multiple <- function (x,
                                columns = 1:6, 
                                round = 2,
                                format.classes = FALSE,
                                pattern = '%09.3e', 
                                row.names = FALSE, 
                                right = TRUE, ...)
{
  right.tmp <- as.logical(x[[1]][['breaks']]['right'])

  tnames <- names(x)[names(x)!="call"]

  for (i in 1:length(tnames)) {
    res <- x[tnames[i]][[tnames[i]]][['table']]

    res <- cbind(res[, 1], round(res[, 2:6], round))[columns]

    cat(tnames[i], '\n')

    if (format.classes) {
      tmp <- as.character(res[, 1])

      res[, 1] <- make.fdt.format.classes(tmp,
                                          right.tmp,
                                          pattern)
    }

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

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

    cat('\n')}
}