Mercurial > repos > davidvanzessen > plotting_merged

comparison RScript.r @ 5:103006a53888 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 03:17:48 -0400
parents edcce37b28b8
children 659c2fe7f9ef
comparison
equal deleted inserted replaced
4:a9dd528555bb 5:103006a53888
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 if (!require("gridExtra")) {
9 install.packages("gridExtra", repos="http://cran.xl-mirror.nl/") 8 install.packages("gridExtra", repos="http://cran.xl-mirror.nl/")
10 }
11 library (gridExtra) 9 library (gridExtra)
12 if (!require("ggplot2")) {
13 install.packages("ggplot2", repos="http://cran.xl-mirror.nl/") 10 install.packages("ggplot2", repos="http://cran.xl-mirror.nl/")
14 }
15 require(ggplot2) 11 require(ggplot2)
16 if (!require("plyr")) { 12 install.packages("plyr", repos="http://cran.xl-mirror.nl/")
17 install.packages("plyr", repos="http://cran.xl-mirror.nl/")
18 }
19 require(plyr) 13 require(plyr)
20 14
21 test = read.table(inFile, sep="\t", header=TRUE) 15 test = read.table(inFile, sep="\t", header=TRUE)
22 16
23 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene) 17 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene)