A function to compute the majority vote (some would say plurality) label in a vector of labels, breaking ties at random.

majorityVote(x)

Arguments

x

A vector of values, either numerical or not.

Value

A list with the following components:

table

A table of votes for each unique value of x.

ind

An integer specifying which unique value of x corresponds to the majority vote.

majority

A string specifying the majority vote label.

Author

L. Scrucca

Examples

x <- c("A", "C", "A", "B", "C", "B", "A") majorityVote(x)
#> $table #> x #> A B C #> 3 2 2 #> #> $ind #> [1] 1 #> #> $majority #> [1] "A" #>