# HG changeset patch
# User yhoogstrate
# Date 1400768218 14400
# Node ID 1b8ecb48f6e7b6e224cb0707e1734aee66af4aa6
# Parent  47eadcd9e4b89635f8c4b37c27b9651827459569
Uploaded

diff -r 47eadcd9e4b8 -r 1b8ecb48f6e7 edgeR_Differential_Gene_Expression.xml
--- a/edgeR_Differential_Gene_Expression.xml	Thu May 22 10:14:59 2014 -0400
+++ b/edgeR_Differential_Gene_Expression.xml	Thu May 22 10:16:58 2014 -0400
@@ -280,7 +280,7 @@
     
     if(output_heatmap_plot != "/dev/null") {
       pdf(output_heatmap_plot)
-      etable2 <- topTags(lrt, n=100)$table
+      etable2 <- topTags(lrt, n=100)\$table
       order <- rownames(etable2)
       cpm_sub <- cpm(dge,normalized.lib.sizes=TRUE,log=TRUE)[as.numeric(order),]
       heatmap(t(cpm_sub))