Mercurial > repos > davidvanzessen > combined_immune_repertoire_pipeline

comparison RScript.r @ 11:a15d060a6248 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Wed, 08 Jan 2014 06:26:23 -0500
parents a5c224bb0be5
children b07346fe54b4
comparison
equal deleted inserted replaced
10:a5c224bb0be5 11:a15d060a6248
24 install.packages("data.table", repos="http://cran.xl-mirror.nl/") 24 install.packages("data.table", repos="http://cran.xl-mirror.nl/")
25 } 25 }
26 library(data.table) 26 library(data.table)
27 27
28 28
29 test = read.table(inFile, sep="\t", header=TRUE, fill=T) 29 test = read.table(inFile, sep="\t", header=TRUE, fill=T, comment.char="")
30 30
31 test = test[test$Sample != "",] 31 test = test[test$Sample != "",]
32 32
33 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene) 33 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene)
34 test$Top.D.Gene = gsub("[*]([0-9]+)", "", test$Top.D.Gene) 34 test$Top.D.Gene = gsub("[*]([0-9]+)", "", test$Top.D.Gene)