mgvdep:

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

Usage

mgvdep(m, se = FALSE)

Arguments

m
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, se = FALSE) 
{
    temp <- apgdis(m, se = se)$distance
    icen <- ncol(m)
    temp3 <- order(temp)
    chkit <- sum(duplicated(temp[temp3[1:icen]]))
    icen <- icen + chkit
    flag <- rep(T, length(temp))
    flag[temp3[1:icen]] <- F
    varvec <- 0
    varvec[!flag] <- NA
    while (sum(flag) > 0) {
        ic <- 0
        chk <- NA
        remi <- NA
        for (i in 1:nrow(m)) {
            if (flag[i]) {
                ic <- ic + 1
                chk[ic] <- gvar(rbind(m[!flag, ], m[i, ]))
                remi[ic] <- i
            }
        }
        sor <- order(chk)
        k <- remi[sor[1]]
        varvec[k] <- chk[sor[1]]
        flag[k] <- F
    }
    varvec[is.na(varvec)] <- 0
    varvec <- 1/(1 + varvec)
    varvec
  }

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