epowv2:

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

Usage

epowv2(x, y, pcor = FALSE, regfun = tsreg, corfun = pbcor, varfun = pbvar, xout = FALSE, outfun = outpro, plotit = FALSE, ...)

Arguments

x
y
pcor
regfun
corfun
varfun
xout
outfun
plotit
...

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, pcor = FALSE, regfun = tsreg, corfun = pbcor, 
    varfun = pbvar, xout = FALSE, outfun = outpro, plotit = FALSE, 
    ...) 
{
    xx <- elimna(cbind(x, y))
    p1 = ncol(xx)
    p = p1 - 1
    x <- xx[, 1:p]
    y <- xx[, p1]
    x <- as.matrix(x)
    if (xout) {
        flag <- outfun(x, plotit = plotit, ...)$keep
        x = x[flag, ]
        y = y[flag]
    }
    coef <- regfun(x, y)$coef
    yhat <- x %*% coef[2:p1] + coef[1]
    stre = NULL
    temp = varfun(y)
    e.pow = NULL
    if (temp > 0) 
        e.pow <- varfun(yhat)/temp
    if (e.pow > 1) 
        e.pow = corfun(y, yhat)$cor^2
    list(Strength.Assoc = e.pow, Explanatory.Power = sqrt(e.pow))
  }

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