Mercurial > repos > davidvanzessen > plotting_merged

comparison RScript.r @ 23:294cb9f3563d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Mon, 30 Sep 2013 03:36:00 -0400
parents 4d545fb017c7
children 41ac5d41cbe3
comparison
equal deleted inserted replaced
22:4d545fb017c7 23:294cb9f3563d
4 4
5 inFile = args[1] 5 inFile = args[1]
6 outFile = args[2] 6 outFile = args[2]
7 7
8 #install.packages("gridExtra", repos="http://cran.xl-mirror.nl/") 8 #install.packages("gridExtra", repos="http://cran.xl-mirror.nl/")
9 #library (gridExtra) 9 library (gridExtra)
10 #install.packages("ggplot2", repos="http://cran.xl-mirror.nl/") 10 #install.packages("ggplot2", repos="http://cran.xl-mirror.nl/")
11 #require(ggplot2) 11 require(ggplot2)
12 #install.packages("plyr", repos="http://cran.xl-mirror.nl/") 12 #install.packages("plyr", repos="http://cran.xl-mirror.nl/")
13 #require(plyr) 13 require(plyr)
14 14
15 test = read.table(inFile, sep="\t", header=TRUE) 15 test = read.table(inFile, sep="\t", header=TRUE)
16 16
17 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene) 17 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene)
18 test$Top.D.Gene = gsub("[*]([0-9]+)", "", test$Top.D.Gene) 18 test$Top.D.Gene = gsub("[*]([0-9]+)", "", test$Top.D.Gene)