# Install and load the package (install only once) install.packages("DescTools") library(DescTools) a <- c(104, 19, 20, 19, 20, 100, 20, 21, 21, 24) s.a <- sort(a) s.a Mode(a) a2 <- c(104, 19, 20, 19, 20, 100, 20, 21, 21, 24, 21) s.a2 <- sort(a2) Mode(a2) # Example usage with a character vector chv <- c("w", "x", "y", "x", "x", "y", "love") Mode(chv)