Mercurial > repos > davidvanzessen > plotting_merged

comparison RScript.r @ 6:659c2fe7f9ef draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Fri, 27 Sep 2013 04:13:11 -0400
parents 103006a53888
children 078bdb9f41c9
comparison
equal deleted inserted replaced
5:103006a53888 6:659c2fe7f9ef
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)