https://github.com/cran/pracma
Tip revision: e970b8e92676e0d1f2c84b116f0bad93b03b89c6 authored by Hans W. Borchers on 15 December 2019, 21:30:02 UTC
version 2.2.9
version 2.2.9
Tip revision: e970b8e
mode.R
##
## m o d e . R
##
Mode <- function(x) {
if (is.matrix(x))
x <- c(x)
if (is.numeric(x)) {
x <- sort(x)
tbl <- table(x)
n <- which.max(tbl)
xm <- as.numeric(names(tbl)[n])
} else if (is.complex(x)) {
x <- x[order(abs(x))]
tbl <- table(x)
n <- which.max(tbl)
xm <- as.complex(names(tbl)[n])
} else if (is.factor(x)) {
tbl <- table(x)
n <- which.max(tbl)
xm <- names(tbl)[n]
} else
xm <- NA
return(xm)
}