Mercurial > repos > davidvanzessen > clonal_sequences_in_paired_samples

diff RScript.r @ 58:3ed7878f75c3 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Wed, 14 Oct 2015 10:21:13 -0400
parents c89d9e89423b
children 36e307208f1b
line wrap: on
line diff
--- 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)
           }
         }