squared.t.test:

Usage Arguments Examples

View source: R/tsq.R

Usage

1
squared.t.test(data, cls1, cls2, pathways = NULL)

Arguments

data
cls1
cls2
pathways

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
##---- 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 (data, cls1, cls2, pathways = NULL) 
{
    tval <- ptval <- c()
    tval <- ttest(data, cls1, cls2)
    for (i in 1:length(pathways)) {
        tmp <- c()
        nm1 <- pathways[[i]]
        nm2 <- names(pathways)[i]
        tmp <- tval[nm1]
        tmp <- tmp[!is.na(tmp)]
        tmp <- (sqrt(sum(tmp^2)))/length(tmp)
        names(tmp) <- nm2
        ptval <- c(ptval, tmp)
    }
    return(ptval)
  }

shaileshtripathi/ssapbm documentation built on May 29, 2019, 8:06 p.m.