http://www.commres.net/ 2026-04-29T12:16:44+00:00 http://www.commres.net/ http://www.commres.net/_media/wiki/logo.png text/html 2026-03-10T22:53:44+00:00 Anonymous (anonymous@undisclosed.example.com) http://www.commres.net/mode/rout01?rev=1773183224&do=diff > # 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 > text/html 2026-03-10T22:52:59+00:00 Anonymous (anonymous@undisclosed.example.com) http://www.commres.net/mode/rs01?rev=1773183179&do=diff # 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)