Mercurial > repos > davidvanzessen > clonal_sequences_in_paired_samples
comparison RScript.r @ 59:36e307208f1b draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Thu, 15 Oct 2015 05:34:17 -0400 |
| parents | 3ed7878f75c3 |
| children | 28c3695259c1 |
comparison
equal
deleted
inserted
replaced
| 58:3ed7878f75c3 | 59:36e307208f1b |
|---|---|
| 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 if(nrow(first.rows) > 1) { | |
| 280 if(patient1[1,"Sample"] == first.sample){ | |
| 281 patient1 = patient1[!(patient1$Clone_Sequence %in% first.rows$Clone_Sequence),] | |
| 282 patient1 = rbind(patient1, first.sum) | |
| 283 } else { | |
| 284 patient2 = patient2[!(patient2$Clone_Sequence %in% first.rows$Clone_Sequence),] | |
| 285 patient2 = rbind(patient2, first.sum) | |
| 286 } | |
| 287 | |
| 288 hidden.clone.sequences = c(first.rows[-1,"Clone_Sequence"]) | |
| 289 merge.list[["second"]] = append(merge.list[["second"]], hidden.clone.sequences) | |
| 290 | |
| 291 patient.fuzzy = patient.fuzzy[-first.match.filter,] | |
| 292 | |
| 293 cat(paste("<tr bgcolor='#DDF'><td>", patient, " row ", 1:nrow(first.rows), "</td><td>", first.rows$Sample, ":</td><td>", first.rows$Clone_Sequence, "</td><td>", first.rows$normalized_read_count, "</td></tr>", sep=""), file="single_matches.html", append=T) | |
| 279 } else { | 294 } else { |
| 280 patient.fuzzy = patient.fuzzy[-1,] | 295 patient.fuzzy = patient.fuzzy[-1,] |
| 281 } | 296 } |
| 282 } | 297 } |
| 283 patient.merge.list[[patient]] <<- patientMerge | 298 patient.merge.list[[patient]] <<- patientMerge |