Mercurial > repos > yhoogstrate > edger_with_design_matrix

diff edgeR_Differential_Gene_Expression.xml @ 93:31335aa52b2e draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author yhoogstrate
date Wed, 18 Mar 2015 06:40:01 -0400
parents c81da57fff20
children 46745f5666ac
line wrap: on
line diff
--- a/edgeR_Differential_Gene_Expression.xml	Fri Mar 13 05:45:09 2015 -0400
+++ b/edgeR_Differential_Gene_Expression.xml	Wed Mar 18 06:40:01 2015 -0400
@@ -274,10 +274,13 @@
   
   if(output_MDSplot_bcv != "/dev/null") {
     write("Creating MDS plot (bcv method)",stdout())
-    pdf("/home/youri/Desktop/bcvmds.pdf")
-    points <- plotMDS.DGEList(dge,method="bcv",top=500,labels=rep("",nrow(dge\$samples)))# Get coordinates of unflexible plot
+    
+    ## 1. First create a virtual plot to obtain the desired coordinates
+    pdf("bcvmds.pdf")
+    points <- plotMDS.DGEList(dge,method="bcv",top=500,labels=rep("",nrow(dge\$samples)))
     dev.off()# Kill it
     
+    ## 2. Re-plot the coordinates in a new figure with the size and settings.
     if(output_format_images == "pdf") {
       pdf(output_MDSplot_bcv,height=14,width=14)
     } else if(output_format_images == "svg") {