
> # install.packages("DescTools")
> # library(DescTools)
> 
> a <- c(104, 19, 20, 19, 20, 100, 20, 21, 21, 24)
> s.a <- sort(a)
> s.a 
 [1]  19  19  20  20  20  21  21  24 100 104
> Mode(a)
[1] 20
attr(,"freq")
[1] 3
> 
> a2 <- c(104, 19, 20, 19, 20, 100, 20, 21, 21, 24, 21)
> s.a2 <- sort(a2)
> Mode(a2)
[1] 20 21
attr(,"freq")
[1] 3
> 
> 
> # Example usage with a character vector
> chv <- c("w", "x", "y", "x", "x", "y", "love")
> Mode(chv)
[1] "x"
attr(,"freq")
[1] 3
>