randomset:

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

Usage

randomset(tot, nel, seed)

Arguments

tot
nel
seed

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 (tot, nel, seed) 
{
    out <- list()
    for (j in 1:nel) {
        randseed <- uniran(seed)
        seed <- randseed$seed
        num <- floor(randseed$random * tot) + 1
        if (j > 1) {
            while (any(out$ranset == num)) {
                randseed <- uniran(seed)
                seed <- randseed$seed
                num <- floor(randseed$random * tot) + 1
            }
        }
        out$ranset[j] <- num
    }
    out$seed <- seed
    return(out)
  }

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