Mercurial > repos > davidvanzessen > plotting_merged

comparison RScript.r @ 52:907e2a756f85 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:43 -0500
parents 8f5ab5290c88
children 6ab4c67af3b7
comparison
equal deleted inserted replaced
51:8f5ab5290c88 52:907e2a756f85
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)