pbos:

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

Usage

pbos(x, beta = 0.2)

Arguments

x
beta

Examples

##---- 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, beta = 0.2) 
{
    temp <- sort(abs(x - median(x)))
    omhatx <- temp[floor((1 - beta) * length(x))]
    psi <- (x - median(x))/omhatx
    i1 <- length(psi[psi < (-1)])
    i2 <- length(psi[psi > 1])
    sx <- ifelse(psi < (-1), 0, x)
    sx <- ifelse(psi > 1, 0, sx)
    pbos <- (sum(sx) + omhatx * (i2 - i1))/(length(x) - i1 - 
        i2)
    pbos
  }

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