R/mfv.default.R

Defines functions mfv.default

Documented in mfv.default

mfv.default <- function(x, ...)
{
  # Adapted from
  # http://stackoverflow.com/questions/2547402/standard-library-function-in-r-for-finding-the-mode
  ux <- unique(x)

  res <- as.vector(ux[which.max(tabulate(match(x, 
                                               ux)))])
  return(res)
}                        

Try the fdth package in your browser

Any scripts or data that you put into this service are public.

fdth documentation built on Nov. 18, 2023, 1:08 a.m.