wmve:

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

Usage

wmve(m, SEED = TRUE)

Arguments

m
SEED

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 (m, SEED = TRUE) 
{
    if (is.matrix(m)) 
        n <- nrow(m)
    if (is.vector(m)) 
        n <- length(m)
    flag <- rep(T, n)
    vec <- out(m, plotit = FALSE, SEED = SEED)$out.id
    flag[vec] <- F
    if (is.vector(m)) {
        center <- mean(m[flag])
        scatter <- var(m[flag])
    }
    if (is.matrix(m)) {
        center <- apply(m[flag, ], 2, mean)
        scatter <- var(m[flag, ])
    }
    list(center = center, cov = scatter)
  }

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