diff edger.R @ 2:a1634a9c2ee1 draft

planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/edger commit 910ffba48cb5f981aad1e00b77056bbbec7f9617
author iuc
date Thu, 19 Apr 2018 17:26:38 -0400
parents 2a16413ec60d
children d79ed3ec25fe
line wrap: on
line diff
--- a/edger.R	Tue Jan 30 04:07:08 2018 -0500
+++ b/edger.R	Thu Apr 19 17:26:38 2018 -0400
@@ -486,9 +486,9 @@
     sumStatus <- summary(status)
 
     # Collect counts for differential expression
-    upCount[i] <- sumStatus["Up"]
-    downCount[i] <- sumStatus["Down"]
-    flatCount[i] <- sumStatus["NotSig"]
+    upCount[i] <- sumStatus["Up", ]
+    downCount[i] <- sumStatus["Down", ]
+    flatCount[i] <- sumStatus["NotSig", ]
                                              
     # Write top expressions table
     top <- topTags(res, n=Inf, sort.by="PValue")