Mercurial > repos > davidvanzessen > mutation_analysis

comparison sequence_overview.r @ 86:0011a0597685 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Mon, 30 May 2016 05:36:53 -0400
parents 564c4f6da203
children fd63f5307962
comparison
equal deleted inserted replaced
85:07f7da724a77 86:0011a0597685
122 #ACGT overview 122 #ACGT overview
123 123
124 124
125 125
126 NToverview = genes[,c("Sequence.ID", "best_match")] 126 NToverview = genes[,c("Sequence.ID", "best_match")]
127 sequences$seq = paste(sequences$CDR2.IMGT, sequences$CDR2.IMGT, sequences$FR2.IMGT, sequences$FR3.IMGT, sep="_") 127 sequences$seq = paste(sequences$CDR1.IMGT, sequences$CDR2.IMGT, sequences$FR2.IMGT, sequences$FR3.IMGT, sep="_")
128 128
129 NToverview = merge(NToverview, sequences[,c("Sequence.ID", "seq")], by="Sequence.ID") 129 NToverview = merge(NToverview, sequences[,c("Sequence.ID", "seq")], by="Sequence.ID")
130 130
131 NToverview = NToverview[NToverview$Sequence.ID %in% merged$Sequence.ID,] 131 NToverview = NToverview[NToverview$Sequence.ID %in% merged$Sequence.ID,]
132 132