extradir:

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

Usage

extradir(data, ndirect, seed = 0, all = T)

Arguments

data
ndirect
seed
all

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 (data, ndirect, seed = 0, all = T) 
{
    n <- nrow(data)
    p <- ncol(data)
    B2 <- matrix(data = 0, nrow = ndirect, ncol = p)
    rowindex <- 1
    i <- 1
    if (all == T) {
        while ((i < n) & (rowindex <= ndirect)) {
            j <- i + 1
            while ((j <= n) & (rowindex <= ndirect)) {
                B2[rowindex, ] <- data[i, ] - data[j, ]
                j <- j + 1
                rowindex <- rowindex + 1
            }
            i <- i + 1
        }
    }
    else {
        while (rowindex <= ndirect) {
            sseed <- randomset(n, 2, seed)
            seed <- sseed$seed
            B2[rowindex, ] <- data[sseed$ranset[1], ] - data[sseed$ranset[2], 
                ]
            rowindex <- rowindex + 1
        }
    }
    return(B2)
  }

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