Mercurial > repos > davidvanzessen > shm_csr
diff sequence_overview.r @ 31:fe44a905aee9 draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Tue, 13 Dec 2016 10:06:49 -0500 |
| parents | 3968d04b5724 |
| children | 4c5ba6b5d10d |
line wrap: on
line diff
--- a/sequence_overview.r Mon Dec 12 05:19:58 2016 -0500 +++ b/sequence_overview.r Tue Dec 13 10:06:49 2016 -0500 @@ -22,13 +22,13 @@ #before.unique = before.unique[!grepl("unmatched", before.unique$best_match),] if(empty.region.filter == "leader"){ - before.unique$seq_conc = paste(before.unique$FR1.IMGT.seq, before.unique$CDR1.IMGT.seq, before.unique$FR2.IMGT.seq, before.unique$CDR2.IMGT.seq, before.unique$FR3.IMGT.seq) + before.unique$seq_conc = paste(before.unique$FR1.IMGT.seq, before.unique$CDR1.IMGT.seq, before.unique$FR2.IMGT.seq, before.unique$CDR2.IMGT.seq, before.unique$FR3.IMGT.seq, before.unique$CDR3.IMGT.seq) } else if(empty.region.filter == "FR1"){ - before.unique$seq_conc = paste(before.unique$CDR1.IMGT.seq, before.unique$FR2.IMGT.seq, before.unique$CDR2.IMGT.seq, before.unique$FR3.IMGT.seq) + before.unique$seq_conc = paste(before.unique$CDR1.IMGT.seq, before.unique$FR2.IMGT.seq, before.unique$CDR2.IMGT.seq, before.unique$FR3.IMGT.seq, before.unique$CDR3.IMGT.seq) } else if(empty.region.filter == "CDR1"){ - before.unique$seq_conc = paste(before.unique$FR2.IMGT.seq, before.unique$CDR2.IMGT.seq, before.unique$FR3.IMGT.seq) + before.unique$seq_conc = paste(before.unique$FR2.IMGT.seq, before.unique$CDR2.IMGT.seq, before.unique$FR3.IMGT.seq, before.unique$CDR3.IMGT.seq) } else if(empty.region.filter == "FR2"){ - before.unique$seq_conc = paste(before.unique$CDR2.IMGT.seq, before.unique$FR3.IMGT.seq) + before.unique$seq_conc = paste(before.unique$CDR2.IMGT.seq, before.unique$FR3.IMGT.seq, before.unique$CDR3.IMGT.seq) } IDs = before.unique[,c("Sequence.ID", "seq_conc", "best_match", "Functionality")]