mode:rout01
> # 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
>
mode/rout01.txt · Last modified: by hkimscil