Determine the mode of a distribution

Find the most common entry in a vector. Ties are not allowed, the first value encountered within the modal set if there are ties is deemed the mode.

modalvalue(x)

Arguments

x	numeric vector.

Value

Numeric value of the mode.

Examples

 d1 <- c(1, 1, 1, 2, 2, 3)
 modalvalue(d1)