Estimate vector mode

estimate_mode(x)

Arguments

x	the vector to be estimated

the estimated mode of the given vector of values

x <- runif(1000)
y <- estimate_mode(x)