tests/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")

Try the pracma package in your browser

Any scripts or data that you put into this service are public.

pracma documentation built on March 19, 2024, 3:05 a.m.