R/modeKTS.R

Defines functions modeKTS

Documented in modeKTS

modeKTS <-
function(x) {
    x <- x[which(is.finite(x))]
    ux <- unique(x)
    ux[which.max(tabulate(match(x, ux)))]
}

Try the KarsTS package in your browser

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

KarsTS documentation built on Jan. 16, 2021, 5:07 p.m.