rmdzeroOP:

Usage Arguments Examples

Usage

1
rmdzeroOP(x, nboot = 500, cop = 3, MC = FALSE, xlab = "", ylab = "", STAND = TRUE, ...)

Arguments

x
nboot
cop
MC
xlab
ylab
STAND
...

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
##---- 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, nboot = 500, cop = 3, MC = FALSE, xlab = "", ylab = "", 
    STAND = TRUE, ...) 
{
    if (!is.list(x) && !is.matrix(x)) 
        stop("Data must be stored in a matrix or in list mode.")
    if (is.list(x)) {
        mat <- matrix(0, length(x[[1]]), length(x))
        for (j in 1:length(x)) mat[, j] <- x[[j]]
    }
    if (is.matrix(x)) 
        mat <- x
    mat <- elimna(mat)
    J <- ncol(mat)
    jp <- 0
    Jall <- (J^2 - J)/2
    dif <- matrix(NA, nrow = nrow(mat), ncol = Jall)
    ic <- 0
    for (j in 1:J) {
        for (k in 1:J) {
            if (j < k) {
                ic <- ic + 1
                dif[, ic] <- mat[, j] - mat[, k]
            }
        }
    }
    dif <- as.matrix(dif)
    res = smeancrv2(dif, nboot = nboot, cop = cop, plotit = plotit, 
        MC = MC, xlab = xlab, ylab = ylab, STAND = STAND)
    res
  }

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