# HG changeset patch
# User davidvanzessen
# Date 1444832473 14400
# Node ID 3ed7878f75c333cde045c5e274dff844ac6c468a
# Parent  6562c81d6583285bb8714c8e2d75a9a099b9baaf
Uploaded

diff -r 6562c81d6583 -r 3ed7878f75c3 RScript.r
--- a/RScript.r	Wed Oct 14 10:18:40 2015 -0400
+++ b/RScript.r	Wed Oct 14 10:21:13 2015 -0400
@@ -272,7 +272,7 @@
           if(nchar(first.clone.sequence) != nchar(second.clone.sequence)){
             cat(paste("<tr bgcolor='#DDD'><td>", patient, " row ", 1:nrow(tmp.rows), "</td><td>", tmp.rows$Sample, ":</td><td>", tmp.rows$Clone_Sequence, "</td><td>", tmp.rows$normalized_read_count, "</td></tr>", sep=""), file="single_matches.html", append=T)
           } else {
-            cat(paste("<tr><td>", patient, " row ", 1:nrow(tmp.rows), "</td><td>", tmp.rows$Sample, ":</td><td>", tmp.rows$Clone_Sequence, "</td><td>", tmp.rows$normalized_read_count, "</td></tr>", sep=""), file="single_matches.html", append=T)
+            #cat(paste("<tr><td>", patient, " row ", 1:nrow(tmp.rows), "</td><td>", tmp.rows$Sample, ":</td><td>", tmp.rows$Clone_Sequence, "</td><td>", tmp.rows$normalized_read_count, "</td></tr>", sep=""), file="single_matches.html", append=T)
           }
         }