Rfit:

Usage Arguments Examples

Usage

1
Rfit(x, y, xout = FALSE, outfun = outpro, ...)

Arguments

x
y
xout
outfun
...

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
##---- 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, xout = FALSE, outfun = outpro, ...) 
{
    library(Rfit)
    if (xout) {
        m <- cbind(x, y)
        p1 = ncol(m)
        p = p1 - 1
        flag <- outfun(x, plotit = FALSE, ...)$keep
        m <- m[flag, ]
        x <- m[, 1:p]
        y <- m[, p1]
    }
    fit = rfit(y ~ x)
    output = summary(fit)
    list(summary = output[1]$coefficients, coef = output[1]$coefficients[, 
        1], Drop_test = output[2]$dropstat, Drop_test_p.value = output[3]$droppval, 
        Mult_R_squared = output[4]$R2)
  }

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