Compute a sample mode
sample_mode(x)
x
Numeric vector
data(anchoring) sample_mode(anchoring$everest_feet) # Multiple modes give a warning: sample_mode(c(1,1,1,2,2,2))