zenith | R Documentation |
Perform gene set analysis on the result of differential expression using linear (mixed) modeling with variancePartition::dream
by considering the correlation between gene expression traits. This package is a slight modification of limma::camera
to 1) be compatible with dream, and 2) allow identification of gene sets with log fold changes with mixed sign.
zenith(
fit,
coef,
index,
use.ranks = FALSE,
allow.neg.cor = FALSE,
progressbar = TRUE,
inter.gene.cor = 0.01
)
fit |
result of differential expression with dream |
coef |
coefficient to test using |
index |
an index vector or a list of index vectors. Can be any vector such that |
use.ranks |
do a rank-based test ( |
allow.neg.cor |
should reduced variance inflation factors be allowed for negative correlations? |
progressbar |
if TRUE, show progress bar |
inter.gene.cor |
if NA, estimate correlation from data. Otherwise, use specified value |
zenith
gives the same results as camera(..., inter.gene.cor=NA)
which estimates the correlation with each gene set.
For differential expression with dream using linear (mixed) models see Hoffman and Roussos (2020). For the original camera gene set test see Wu and Smyth (2012).
NGenes
: number of genes in this set
Correlation
: mean correlation between expression of genes in this set
delta
: difference in mean t-statistic for genes in this set compared to genes not in this set
se
: standard error of delta
p.less
: p-value for hypothesis test of H0: delta < 0
p.greater
: p-value for hypothesis test of H0: delta > 0
PValue
: p-value for hypothesis test H0: delta != 0
Direction
: direction of effect based on sign(delta)
FDR
: false discovery rate based on Benjamini-Hochberg method in p.adjust
hoffman2020dreamzenith
\insertRefwu2012camerazenith
library(variancePartition)
# simulate meta-data
info <- data.frame(Age=c(20, 31, 52, 35, 43, 45),Group=c(0,0,0,1,1,1))
# simulate expression data
y <- matrix(rnorm(1000*6),1000,6)
rownames(y) = paste0("gene", 1:1000)
colnames(y) = rownames(info)
# First set of 20 genes are genuinely differentially expressed
index1 <- 1:20
y[index1,4:6] <- y[index1,4:6]+1
# Second set of 20 genes are not DE
index2 <- 21:40
# perform differential expression analysis with dream
fit = dream(y, ~ Age + Group, info)
fit = eBayes(fit)
# perform gene set analysis testing Age
res = zenith(fit, "Age", list(set1=index1,set2=index2) )
head(res)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.