R/getMajVote.R

getMajVote <-
function(x)
  {
    x <- table(x)
    sample(names(x)[x == max(x)], 1)

  }

Try the FuseBox package in your browser

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

FuseBox documentation built on May 2, 2019, 5:16 p.m.