Mercurial > repos > davidvanzessen > clonal_sequences_in_paired_samples

comparison RScript.r @ 35:32d8a5abed4c draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Wed, 26 Aug 2015 05:51:20 -0400
parents 37d9074ef2c6
children d592dab2fca1
comparison
equal deleted inserted replaced
34:37d9074ef2c6 35:32d8a5abed4c
221 patientMerge = rbind(patientMerge, patientMerge.new.row) 221 patientMerge = rbind(patientMerge, patientMerge.new.row)
222 #remove from patient*.fuzzy 222 #remove from patient*.fuzzy
223 223
224 224
225 #remove the fuzzy merged clone sequences from the original datasets 225 #remove the fuzzy merged clone sequences from the original datasets
226 patient1 <<- patient1[patient1$Clone_Sequence != patient1.fuzzy[1,"Clone_Sequence"],] 226 patient1 = patient1[patient1$Clone_Sequence != patient1.fuzzy[1,"Clone_Sequence"],]
227 patient2 <<- patient2[patient2$Clone_Sequence != patient2.fuzzy[agrep.match,"Clone_Sequence"],] 227 patient2 = patient2[patient2$Clone_Sequence != patient2.fuzzy[agrep.match,"Clone_Sequence"],]
228 228
229 scatterplot_data = scatterplot_data[scatterplot_data$merge != current.clone.seq.2,] 229 scatterplot_data = scatterplot_data[scatterplot_data$merge != current.clone.seq.2,]
230 230
231 patient2.fuzzy <<- patient2.fuzzy[-c(agrep.match),] 231 patient2.fuzzy <<- patient2.fuzzy[-c(agrep.match),]
232 232