adjboxout:
In musto101/wilcox_R: What the package does (short line)

Usage Arguments Examples

1	adjboxout(x)

x

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x) 
{
    x = elimna(x)
    n = length(x)
    MC = mcskew(x)
    val = idealf(x)
    iqr = val$qu - val$ql
    if (MC >= 0) {
        bot = val$ql - 1.5 * exp(0 - 4 * MC) * iqr
        top = val$qu + 1.5 * exp(3 * MC) * iqr
    }
    if (MC < 0) {
        bot = val$ql - 1.5 * exp(0 - 3 * MC) * iqr
        top = val$qu + 1.5 * exp(4 * MC) * iqr
    }
    flag = rep(F, length(x))
    fl = (x < bot)
    fu = (x > top)
    flag[fl] = T
    flag[fu] = T
    vec <- c(1:n)
    outid <- NULL
    if (sum(flag) > 0) 
        outid <- vec[flag]
    keep <- vec[!flag]
    outval <- x[flag]
    keep = x[!flag]
    list(out.val = outval, out.id = outid, keep = keep, cl = bot, 
        cu = top)
  }