# NOT RUN {
# Mode of numeric vector
x <- c(1:5, 6, 6, 7:10)
get_mode(x)
# Bimodal
x <- c(1:5, 6, 6, 7, 8, 9, 9, 10)
get_mode(x)
# No mode
x <- c(1, 2, 3, 4, 5)
get_mode(x)
# Nominal vector
fruits <- c(rep("orange", 10), rep("apple", 5), rep("lemon", 2))
get_mode(fruits)
# }
Run the code above in your browser using DataLab