Hello,
I have meta-transcriptomics data (RNAseq) and I used GAGE (v2.26.0) to find KEGG ortholog pathways differentially expressed. I have lists of KEGG pathways perturbed (in 1 and 2 directions) and I want to extract significantly DE gene list (in the same way as DAVID output). So, I use essGene function but sometimes I have no genes for a pathway with p.val < 0.1. I use same options in gage and essGene function as you can see in this extract of my code :
RESgage.kegg.genus.both <- gage(exprs=ExpressionData.ko.genus, gsets=kegg.sets.ko, ref=lf, samp=lt, compare = "paired", same.dir = FALSE ) output.bidir=RESgage.kegg.genus.both.select[RESgage.kegg.genus.both.select$p.val < 0.1, 1:5] listPathway=rownames(output.bidir) geneSet<-vector(mode = "character",length = length(listPathway)) for (j in 1:length(listPathway)){ termselec=listPathway[j] gs=unique(unlist(kegg.sets.ko[termselec])) essData = essGene(gs, ExpressionData.ko.genus, ref=lf, samp=lt, compare= "paired") essDataList=rownames(essData) geneSet[j] <- toString(essDataList) } output.bidir=cbind(output.bidir, geneSet)
If I set use.fold=FALSE in essGene, I obtain genes but I want DE genes considered by gage function. Can you help me ?
I don't understand how gage function can considere a pathway perturbed without gene significantly changed.