apgdis:

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

Usage

apgdis(m, est = sum, se = TRUE, ...)

Arguments

m
est
se
...

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, est = sum, se = TRUE, ...) 
{
    m <- elimna(m)
    temp <- 0
    if (se) {
        for (j in 1:ncol(m)) m[, j] <- (m[, j] - median(m[, j]))/mad(m[, 
            j])
    }
    for (j in 1:ncol(m)) {
        disx <- outer(m[, j], m[, j], "-")
        temp <- temp + disx^2
    }
    temp <- sqrt(temp)
    dis <- apply(temp, 1, est, ...)
    temp2 <- order(dis)
    center <- m[temp2[1], ]
    list(center = center, distance = dis)
  }

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