Mercurial > repos > davidvanzessen > mutation_analysis

diff new_imgt.r @ 127:afb0937ec0dc draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Tue, 13 Sep 2016 08:55:05 -0400
parents e7b550d52eb7
children
line wrap: on
line diff
--- a/new_imgt.r	Mon Aug 29 04:20:30 2016 -0400
+++ b/new_imgt.r	Tue Sep 13 08:55:05 2016 -0400
@@ -7,7 +7,9 @@
 merged = read.table(merged.file, header=T, sep="\t", fill=T, stringsAsFactors=F)
 
 if(gene != "-"){
-	merged = merged[grepl(gene, merged$best_match),]
+	merged = merged[grepl(paste("^", gene, sep=""), merged$best_match),]
+} else {
+	merged = merged[!grepl("unmatched", merged$best_match),]
 }
 
 merged = merged[!grepl("unmatched", merged$best_match),]