Description Usage Arguments Value Examples
Wrapper around the 'mgsa' method
1 | estimateRedundancy(scores, gsets, Gdiffexp)
|
scores |
Dataframe from 'r packagedocs::rd_link(testUnidirectionality())' containing the filtered enrichment scores for every gene set |
gsets |
Named list containing character vectors for each gene set |
Gdiffexp |
Character vector of differentially expressed genes |
Numeric vector containing for every gene set (in the same order the scores dataframe) its relevance compared with other gene sets, higher is better
1 2 3 4 5 6 7 8 9 10 | Eoi = matrix(rnorm(1000*3, sd=0.5), 1000, 3, dimnames=list(1:1000, c(1,2,3)))
Eoi[1:100,1] = Eoi[1:100,1] + 4 # the first 100 genes are more upregulated in the first condition
barycoords = transformBarycentric(Eoi)
Gdiffexp = (1:1000)[barycoords$r > 1]
# a and b are redundant, but a is stronger enriched
gsets = list(a=1:50, b=c(1:50, 100:110), c=200:500)
scores = testUnidirectionality(barycoords, gsets, Gdiffexp=(1:1000)[barycoords$r > 1])
scores$redundancy = estimateRedundancy(scores, gsets, Gdiffexp)
scores[scores$gsetid == "a", "redundancy"] > scores[scores$gsetid == "b", "redundancy"]
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.