Hello! All.
I'm using DESeq to check differential gene expression , but I got in doubt recent days and meet strange result which different from DESeq munual's demo , below I post my code and wish your kindly help:
library(DESeq2)
workDir <- "C:/Users/Administrator/Desktop/rawcounts"
setwd(workDir)
directory<-workDir
sampleFiles <- grep(".reads",list.files(directory),value=TRUE)
stage <- factor(c("B","CD4","CD8","CLP","CMP","EryA","EryB","GMP","Granulocyte","HSC","LT_HSC",
"MEP","MF","Mono","MPP","NK"))
sampleTable<-data.frame(sampleName=sampleFiles, fileName=sampleFiles,stage = stage)
dds<-DESeqDataSetFromHTSeqCount(sampleTable=sampleTable, directory=directory,design =~ stage)
dds <- dds[rowSums(counts(dds)) > 1,]
dds<-DESeq(dds)
res<-results(dds)
resOrdered <- res[order(res$padj),]
summary(resOrdered)
And I got the result:
Note:My datas have no replicates, so I wonder if this is the problem.
Thank you again for your attention!
Thank you! Santosh. These two pages are very useful and I will try more. BTW,except edgeR, is there any packages can be recommended for DEG analysis. Thank you again for your reply.
Newer and faster alternative pipeline is to use transcript abundance quantification methods such as Salmon (Patro et al. 2017), Sailfish (Patro, Mount, and Kingsford 2014), kallisto (Bray et al. 2016), or RSEM (B. Li and Dewey 2011), to estimate abundances without aligning reads.
Also see, https://liorpachter.wordpress.com/2017/08/02/how-not-to-perform-a-differential-expression-analysis-or-science/
Thank you again! Santosh.
I will try to figure out these packages and the link is very specific.