bootdse:

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

Usage

bootdse(x, y = NA, est = median, nboot = 100, pr = TRUE, ...)

Arguments

x
y
est
nboot
pr
...

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 = NA, est = median, nboot = 100, pr = TRUE, ...) 
{
    if (!is.na(y[1])) 
        x <- cbind(x, y)
    x <- elimna(x)
    if (pr) 
        print("Taking Bootstrap Samples. Please wait.")
    data <- matrix(sample(nrow(x), size = nrow(x) * nboot, replace = TRUE), 
        nrow = nboot)
    xmat <- matrix(x[data, 1], nrow = nboot, ncol = length(x))
    ymat <- matrix(x[data, 2], nrow = nboot, ncol = length(x))
    bvec <- apply(xmat, 1, FUN = est, ...) - apply(ymat, 1, FUN = est, 
        ...)
    se <- sqrt(var(bvec))
    se
  }

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