rstmn:

Usage Arguments Examples

Usage

1
rstmn(x, k1 = 5, k2 = 5)

Arguments

x
k1
k2

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
##---- 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, k1 = 5, k2 = 5) 
{
    madd <- mad(x, constant = 1)
    med <- median(x)
    LM <- sum(x < (med - k1 * madd))
    nmUM <- sum(x > (med + k2 * madd))
    n <- length(x)
    ll <- ceiling((100 * LM)/n)
    hh <- ceiling((100 * nmUM)/n)
    tp <- min(max(ll, hh)/100, 0.5)
    mean(x, trim = tp)
  }

musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.