Thanks, Ning! Very good point! I'll definitely look into it. I need to figure out the best way to leverage DESeq, with replicates or without, and this has been an absolute struggle.
Attached is a run of DESeq on the 'classic' kidney/liver data w/o replicates, run like below. Check out that black point in the upper right. I would like to color it red. :)
library(DESeq)
data = read.table("/Users/bhaas/SVN/trinityrnaseq/misc_tests/test_DiffExpression/published_studies/Marioni_liver_vs_kidney/kidney_vs_liver.sum_tech_reps.matrix", header=T, row.names=1)
col_ordering = c(1,2)
rnaseqMatrix = data[,col_ordering]
rnaseqMatrix = round(rnaseqMatrix)
rnaseqMatrix = rnaseqMatrix[rowSums(rnaseqMatrix)>=10,]
conditions = factor(c(rep("kidney_sums", 1), rep("liver_sums", 1)))
exp_study = newCountDataSet(rnaseqMatrix, conditions)
exp_study = estimateSizeFactors(exp_study)
exp_study = estimateDispersions(exp_study, method="blind", sharingMode="fit-only")
res = nbinomTest(exp_study, "kidney_sums", "liver_sums")