mode.R
##
## m o d e . R
##
Mode <- pracma::Mode
x <- c(1:100, rep(5,3), rep(27,5), rep(71,4), rep(89,2), rep(100, 5))
identical(Mode(x), 27)
x <- as.factor(x)
identical(Mode(x), "27")
##
## m o d e . R
##
Mode <- pracma::Mode
x <- c(1:100, rep(5,3), rep(27,5), rep(71,4), rep(89,2), rep(100, 5))
identical(Mode(x), 27)
x <- as.factor(x)
identical(Mode(x), "27")