Notebook
# Getting the data and setting up the conditional factor vector deseq.sums.countData_l <- sums.count.data[,c(1:6, 13:18)] deseq.sums.conds_l <- factor(c(rep("NPL", 6), rep("PL", 6))) # Creating the DESeq data object deseq.sums.cds_l <- newCountDataSet(countData = deseq.sums.countData_l, conditions = deseq.sums.conds_l) # Normalizing deseq.sums.cds_l <- estimateSizeFactors(deseq.sums.cds_l) # Doing the variance calculation deseq.sums.cds_l <- estimateDispersions(deseq.sums.cds_l) # Running the test and getting the results deseq.sums.res_l <- nbinomTest(deseq.sums.cds_l, "NPL", "PL")
!head /Volumes/web/whale/fish546/iplant/Cuffdiff2_analysis1-2014-02-06-10-06-21.400/sorted_data/genes.sorted_by_expression.sig.txt