mdifloc:

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

Usage

mdifloc(x, y, est = tukmed, ...)

Arguments

x
y
est
...

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, y, est = tukmed, ...) 
{
    x <- as.matrix(x)
    y <- as.matrix(y)
    FLAG <- F
    if (ncol(x) != ncol(y)) 
        stop("x and y should have the same number of columns")
    if (ncol(x) == 1 && ncol(y) == 1) 
        FLAG <- T
    if (FLAG) 
        val <- loc2dif(x, y, est = est, ...)
    if (!FLAG) {
        J <- (ncol(x)^2 - ncol(x))/2
        mat <- matrix(NA, ncol = ncol(x), nrow = nrow(x) * nrow(y))
        for (j in 1:ncol(x)) mat[, j] <- as.vector(outer(x[, 
            j], y[, j], FUN = "-"))
        val <- est(mat, ...)
    }
    val
  }

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