Mercurial > repos > davidvanzessen > plotting_merged

comparison RScript.r @ 22:4d545fb017c7 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:34:25 -0400
parents 28cfca2e415d
children 294cb9f3563d
comparison
equal deleted inserted replaced
21:fb03be3fa862 22:4d545fb017c7
3 args <- commandArgs(trailingOnly = TRUE) 3 args <- commandArgs(trailingOnly = TRUE)
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)