You're on the wrong list. This is more appropriate on the bioconductor mailing list.
On Mon, May 5, 2014 at 9:42 AM, Catalina Aguilar Hurtado <cata...@gmail.com>wrote: > Hi, > > I want to compare DESeq vs DESeq2 and I am getting different number of DEGs > which I will expect to be normal. However, when I compare the 149 genes ID > that I get with DESeq with the 869 from DESeq2 there are only ~10 genes > that are in common which I donât understand (using FDR <0.05 for both). I > want to block the Subject effect for which I am including the reduced > formula of ~1. > > Shouldnât these two methods output similar results? Because at the moment > I could interpret my results in different ways. > > Thanks for your help, > > Catalina > > > This the DESeq script that I am using: > > > DESeq > > library(DESeq) > > co=as.matrix(read.table("2014_04_01_6h_LP.csv",header=T, sep=",", > row.names=1)) > > > Subject=c(1,2,3,4,5,1,2,4,5) > > Treatment=c(rep("co",5),rep("c2",4)) > a.con=cbind(Subject,Treatment) > > cds=newCountDataSet(co,a.con) > > > cds <- estimateSizeFactors( cds) > > cds <- estimateDispersions(cds,method="pooled-CR", > modelFormula=count~Subject+Treatment) > > > #filtering > > rs = rowSums ( counts ( cds )) > theta = 0.2 > use = (rs > quantile(rs, probs=theta)) > table(use) > cdsFilt= cds[ use, ] > > > > fit0 <- fitNbinomGLMs (cdsFilt, count~1) > > fit1 <- fitNbinomGLMs (cdsFilt, count~Treatment) > > pvals <- nbinomGLMTest (fit1, fit0) > > > padj <- p.adjust( pvals, method="BH" ) > > padj <- data.frame(padj) > > row.names(padj)=row.names(cdsFilt) > > padj_fil <- subset (padj,padj <0.05 ) > > dim (padj_fil) > > [1] 149 1 > > > ââââââ > > library ("DESeq2") > > countdata=as.matrix(read.table("2014_04_01_6h_LP.csv",header=T, sep=",", > row.names=1)) > > coldata= read.table ("targets.csv", header = T, sep=",",row.names=1) > > coldata > > >Subject Treatment > >F1 1 co > >F2 2 co > >F3 3 co > >F4 4 co > >F5 5 co > >H1 1 c2 > >H2 2 c2 > >H4 4 c2 > >H5 5 c2 > > dds <- DESeqDataSetFromMatrix( > countData = countdata, > colData = coldata, > design = ~ Subject + Treatment) > dds > > dds$Treatment <- relevel (dds$Treatment, "co") > > > dds <- estimateSizeFactors( dds) > > dds <- estimateDispersions(dds) > > > rs = rowSums ( counts ( dds )) > theta = 0.2 > use = (rs > quantile(rs, probs=theta)) > table(use) > ddsFilt= dds[ use, ] > > > dds <- nbinomLRT(ddsFilt, full = design(dds), reduced = ~ 1) > > resLRT <- results(dds) > > sum( resLRT$padj < 0.05, na.rm=TRUE ) > > #[1] 869 > > [[alternative HTML version deleted]] > > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > > [[alternative HTML version deleted]]
______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.