Mercurial > repos > davidvanzessen > clonal_sequences_in_paired_samples
comparison RScript.r @ 58:3ed7878f75c3 draft
Uploaded
author | davidvanzessen |
---|---|
date | Wed, 14 Oct 2015 10:21:13 -0400 |
parents | c89d9e89423b |
children | 36e307208f1b |
comparison
equal
deleted
inserted
replaced
57:6562c81d6583 | 58:3ed7878f75c3 |
---|---|
270 } else { | 270 } else { |
271 second.clone.sequence = second.rows[1,"Clone_Sequence"] | 271 second.clone.sequence = second.rows[1,"Clone_Sequence"] |
272 if(nchar(first.clone.sequence) != nchar(second.clone.sequence)){ | 272 if(nchar(first.clone.sequence) != nchar(second.clone.sequence)){ |
273 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) | 273 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) |
274 } else { | 274 } else { |
275 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) | 275 #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) |
276 } | 276 } |
277 } | 277 } |
278 | 278 |
279 } else { | 279 } else { |
280 patient.fuzzy = patient.fuzzy[-1,] | 280 patient.fuzzy = patient.fuzzy[-1,] |