R/mfv.fdt_cat.R

In jcfaria/fdth: Frequency Distribution Tables, Histograms and Polygons

Defines functions mfv.fdt_cat

Documented in mfv.fdt_cat

mfv.fdt_cat <- function(x, ...)
{
  fdt <- x

  y <- fdt[, 2]

  posMFV <- grep(max(y),
                 y)

  res <- fdt[posMFV, 2]

  names(res) <- fdt[posMFV, 1]

  return(res)
}