comparison RScript.r @ 7:c134f2d0a484 draft

Uploaded
author davidvanzessen
date Wed, 08 Jan 2014 06:26:03 -0500
parents 3ce07f5889ad
children 141b0362603e
comparison
equal deleted inserted replaced
6:8418fab78894 7:c134f2d0a484
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)