epow:

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

Usage

epow(x, y, pcor = FALSE, regfun = tsreg, corfun = pbcor, outkeep = FALSE, outfun = outmgvf, varfun = pbvar, op = TRUE)

Arguments

x
y
pcor
regfun
corfun
outkeep
outfun
varfun
op

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, 
    outkeep = FALSE, outfun = outmgvf, varfun = pbvar, op = TRUE) 
{
    xx <- elimna(cbind(x, y))
    pval <- 1
    if (is.matrix(x)) 
        pval <- ncol(x)
    pp <- pval + 1
    x <- xx[, 1:pval]
    y <- xx[, pp]
    x <- as.matrix(x)
    flag <- rep(T, nrow(x))
    temp <- regfun(x, y)
    ip <- ncol(x) + 1
    yhat <- y - temp$res
    if (!outkeep) {
        temp <- outfun(cbind(x, y), plotit = FALSE)$out.id
        flag[temp] <- F
    }
    epow1 <- varfun(yhat[flag])/varfun(y[flag])
    if (pcor) 
        epow2 <- cor(yhat[flag], y[flag])^2
    if (!pcor) 
        epow2 <- corfun(yhat[flag], y[flag])$cor^2
    if (op) 
        est <- epow2
    if (!op) 
        est <- epow1
    est
  }

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