Mercurial > repos > davidvanzessen > clonal_sequences_in_paired_samples

comparison RScript.r @ 65:7a63e90cfc3d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Mon, 09 Nov 2015 08:19:53 -0500
parents 39fff0180d41
children ef3ac4f431bb
comparison
equal deleted inserted replaced
64:39fff0180d41 65:7a63e90cfc3d
525 patient1.fuzzy$merge = paste(patient1.fuzzy$locus_V, patient1.fuzzy$locus_J) 525 patient1.fuzzy$merge = paste(patient1.fuzzy$locus_V, patient1.fuzzy$locus_J)
526 patient2.fuzzy$merge = paste(patient2.fuzzy$locus_V, patient2.fuzzy$locus_J) 526 patient2.fuzzy$merge = paste(patient2.fuzzy$locus_V, patient2.fuzzy$locus_J)
527 patient3.fuzzy$merge = paste(patient3.fuzzy$locus_V, patient3.fuzzy$locus_J) 527 patient3.fuzzy$merge = paste(patient3.fuzzy$locus_V, patient3.fuzzy$locus_J)
528 528
529 patient.fuzzy = rbind(patient1.fuzzy ,patient2.fuzzy, patient3.fuzzy) 529 patient.fuzzy = rbind(patient1.fuzzy ,patient2.fuzzy, patient3.fuzzy)
530 patient.fuzzy = patient.fuzzy[order(nchar(patient.fuzzy$Clone_Sequence)),]
530 531
531 other.sample.list = list() 532 other.sample.list = list()
532 other.sample.list[[oneSample]] = c(twoSample, threeSample) 533 other.sample.list[[oneSample]] = c(twoSample, threeSample)
533 other.sample.list[[twoSample]] = c(oneSample, threeSample) 534 other.sample.list[[twoSample]] = c(oneSample, threeSample)
534 other.sample.list[[threeSample]] = c(oneSample, twoSample) 535 other.sample.list[[threeSample]] = c(oneSample, twoSample)