R/make.fdt_cat.R

In fdth: Frequency Distribution Tables, Histograms and Polygons

make.fdt_cat <- function(f,
                         categories=NULL,
                         sort=TRUE,
                         decreasing=TRUE)
{
  if (is.null(categories))
    if (is.null(names(f)))
      categories  <- paste('V',
                           1:length(f),
                           sep='')
    else
      categories <- names(f)

    if (sort) {
      order.f <- order(f,
                       decreasing=decreasing)

      f <- f[order.f]

      categories <- categories[order.f]
    }

  f   <- as.vector(f)             # Frequency
  rf  <- f / sum(f)               # Relative freq
  rfp <- rf * 100                 # Relative freq, %
  cf  <- cumsum(f)                # Cumulative freq
  cfp <- cumsum(rfp)              # Cumulative freq, %

  res <- data.frame(categories,   # Make final table
                    f,
                    rf,
                    rfp,
                    cf,
                    cfp)

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

  class(res) <- c('fdt_cat.default',
                  'data.frame')

  invisible(res)
}