1 | p.squared.t.test(data, cls1, cls2, steps = 100, sampling = "sample.labels", pathways = NULL)
|
data |
|
cls1 |
|
cls2 |
|
steps |
|
sampling |
|
pathways |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ##---- 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, steps = 100, sampling = "sample.labels",
pathways = NULL)
{
tv <- squared.t.test(data, cls1, cls2, pathways = pathways)
tvec <- resampling.squared.t.test(data, cls1, cls2, steps = steps,
pathways = pathways, sampling = sampling)
tvec <- cbind(tv, tvec)
pval <- apply(tvec, 1, function(x) {
sum(x[2:(steps + 1)] > x[1])/steps
})
cbind(tv, pval)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.