# HG changeset patch
# User davidvanzessen
# Date 1423142539 18000
# Node ID 7a9debac9a975af405c8981efcafbc3f1c36231b
# Parent  95c9d82b3cd4e906341d2d4b7197eb09b76511a2
Uploaded

diff -r 95c9d82b3cd4 -r 7a9debac9a97 RScript.r
--- a/RScript.r	Thu Feb 05 07:57:29 2015 -0500
+++ b/RScript.r	Thu Feb 05 08:22:19 2015 -0500
@@ -20,7 +20,6 @@
 dat$Related_to_leukemia_clone = F
 
 setwd(outDir)
-write(paste("TMP='", outDir, "'"), file=file.path(Sys.getenv('R_USER'), '.Renviron'))
 cat("<tr><td>Selecting first V/J Genes</td></tr>", file=logfile, append=T)
 dat$V_Segment_Major_Gene = as.factor(as.character(lapply(strsplit(as.character(dat$V_Segment_Major_Gene), "; "), "[[", 1)))
 dat$J_Segment_Major_Gene = as.factor(as.character(lapply(strsplit(as.character(dat$J_Segment_Major_Gene), "; "), "[[", 1)))