outmgv.v2:

Usage Arguments Examples

Usage

1
outmgv.v2(x, outfun = outbox, se = TRUE, op = 1, gval = sqrt(qchisq(0.975, ncol(x))), cov.fun = rmba, xlab = "X", ylab = "Y", SEED = TRUE, ...)

Arguments

x
outfun
se
op
gval
cov.fun
xlab
ylab
SEED
...

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
##---- 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, outfun = outbox, se = TRUE, op = 1, gval = sqrt(qchisq(0.975, 
    ncol(x))), cov.fun = rmba, xlab = "X", ylab = "Y", SEED = TRUE, 
    ...) 
{
    m <- x
    m = elimna(m)
    temp <- mgvar(m, se = se, op = op, cov.fun = cov.fun, SEED = SEED)
    temp[is.na(temp)] <- 0
    temp2 <- outbox(temp, mbox = TRUE, gval = sqrt(qchisq(0.975, 
        ncol(m))))$out.id
    vec <- c(1:nrow(m))
    flag <- rep(T, nrow(m))
    flag[temp2] <- F
    vec <- vec[flag]
    vals <- c(1:nrow(m))
    keep <- vals[flag]
    list(out.id = temp2, keep = keep)
  }

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