comparison RScript.r @ 1:9cf5050738ca draft

Uploaded
author davidvanzessen
date Tue, 11 Mar 2014 09:16:12 -0400
parents 3cce6e04b1e8
children 8b026af4b298
comparison
equal deleted inserted replaced
0:3cce6e04b1e8 1:9cf5050738ca
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 t 29 test = read.table(inFile, sep="\t", header=TRUE, fill=T, comment.char="")
30 read.table(inFile, sep="\t", header=TRUE, fill=T, comment.char="")
31 30
32 test = test[test$Sample != "",] 31 test = test[test$Sample != "",]
33 32
34 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene) 33 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene)
35 test$Top.D.Gene = gsub("[*]([0-9]+)", "", test$Top.D.Gene) 34 test$Top.D.Gene = gsub("[*]([0-9]+)", "", test$Top.D.Gene)