opreg:

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

Usage

opreg(x, y, regfun = tsreg, cop = 3, MC = FALSE, varfun = pbvar, corfun = pbcor, STAND = TRUE)

Arguments

x
y
regfun
cop
MC
varfun
corfun
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, regfun = tsreg, cop = 3, MC = FALSE, varfun = pbvar, 
    corfun = pbcor, STAND = TRUE) 
{
    if (MC) 
        library(parallel)
    x <- as.matrix(x)
    m <- cbind(x, y)
    m <- elimna(m)
    if (!MC) 
        ivec <- outpro(m, plotit = FALSE, cop = cop, STAND = STAND)$keep
    if (MC) 
        ivec <- outproMC(m, plotit = FALSE, cop = cop, STAND = STAND)$keep
    np1 <- ncol(x) + 1
    coef <- regfun(m[ivec, 1:ncol(x)], m[ivec, np1])$coef
    vec <- rep(1, length(y))
    residuals <- y - cbind(vec, x) %*% coef
    stre = NULL
    yhat <- y - residuals
    e.pow <- varfun(yhat)/varfun(y)
    if (!is.na(e.pow)) {
        if (e.pow >= 1) 
            e.pow <- corfun(yhat, y)$cor^2
        stre = sqrt(e.pow)
    }
    list(coef = coef, residuals = residuals, Strength.Assoc = stre, 
        Explanatory.Power = e.pow)
  }

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