Mercurial > repos > davidvanzessen > mutation_analysis

comparison 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
comparison
equal deleted inserted replaced
126:ffd5462da9d1 127:afb0937ec0dc
5 gene = args[3] 5 gene = args[3]
6 6
7 merged = read.table(merged.file, header=T, sep="\t", fill=T, stringsAsFactors=F) 7 merged = read.table(merged.file, header=T, sep="\t", fill=T, stringsAsFactors=F)
8 8
9 if(gene != "-"){ 9 if(gene != "-"){
10 merged = merged[grepl(gene, merged$best_match),] 10 merged = merged[grepl(paste("^", gene, sep=""), merged$best_match),]
11 } else {
12 merged = merged[!grepl("unmatched", merged$best_match),]
11 } 13 }
12 14
13 merged = merged[!grepl("unmatched", merged$best_match),] 15 merged = merged[!grepl("unmatched", merged$best_match),]
14 16
15 for(f in list.files(imgt.dir, pattern="*.txt$")){ 17 for(f in list.files(imgt.dir, pattern="*.txt$")){