Mercurial > repos > davidvanzessen > clonal_sequences_in_paired_samples

diff RScript.r @ 45:570fef3d876f draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Wed, 16 Sep 2015 05:31:09 -0400
parents 07278582b735
children bec38379cf69
line wrap: on
line diff
--- a/RScript.r	Tue Sep 15 05:57:27 2015 -0400
+++ b/RScript.r	Wed Sep 16 05:31:09 2015 -0400
@@ -184,8 +184,8 @@
       #match.filter = merge.filter & grepl(first.clone.sequence, patient.fuzzy$Clone_Sequence) & length.filter & sample.filter
       match.filter = merge.filter & grepl(first.clone.sequence, patient.fuzzy$Clone_Sequence) & sample.filter
       
-      if(sum(match.filter) == 2){
-        second.match = which(match.filter)[2]
+      if(sum(match.filter) == 1){
+        second.match = which(match.filter)[1]
         second.clone.sequence = patient.fuzzy[second.match,"Clone_Sequence"]
         first.sample = patient.fuzzy[1,"Sample"]
         second.sample = patient.fuzzy[second.match,"Sample"]