epmod:

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

Usage

epmod(x, y, smfun = lplot, xout = FALSE, outfun = outpro, STAND = TRUE, ...)

Arguments

x
y
smfun
xout
outfun
STAND
...

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, smfun = lplot, xout = FALSE, outfun = outpro, 
    STAND = TRUE, ...) 
{
    x <- as.matrix(x)
    d <- ncol(x)
    p1 <- d + 1
    temp <- elimna(cbind(x, y))
    x <- temp[, 1:d]
    y <- temp[, p1]
    x <- as.matrix(x)
    if (xout) {
        m <- cbind(x, y)
        flag <- outfun(x, plotit = FALSE, ...)$keep
        m <- m[flag, ]
        x <- m[, 1:d]
        y <- m[, p1]
    }
    x <- as.matrix(x)
    model <- modgen(d)
    mout <- matrix(NA, length(model), 2, dimnames = list(NULL, 
        c("Model", "Explanatory power")))
    for (imod in 1:length(model)) {
        mout[imod, 1] <- imod
        mout[imod, 2] <- smfun(x[, model[[imod]]], y, plotit = FALSE, 
            ...)$Explanatory.power
    }
    list(models = model, Explanatory.power = mout)
  }

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