Mercurial > repos > bornea > saint_bubblebeam
changeset 12:7b797749e8c4 draft
Uploaded
| author | bornea |
|---|---|
| date | Thu, 19 Nov 2015 13:30:04 -0500 |
| parents | 80cc85d7d6e3 |
| children | e63b61738581 |
| files | bubbles_v9_NSAF_natural_log.R |
| diffstat | 1 files changed, 15 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/bubbles_v9_NSAF_natural_log.R Thu Nov 19 13:26:35 2015 -0500 +++ b/bubbles_v9_NSAF_natural_log.R Thu Nov 19 13:30:04 2015 -0500 @@ -3,6 +3,20 @@ # R-code: Multi-bubble graph generation from SAINTexpress output # Author: Brent Kuenzi ################################################################################################### +ins_check_run <- function(){ + if ('dplyr' %in% rownames(installed.packages())){} + else { + install.packages('dplyr', repos='http://cran.us.r-project.org') + } + if ('tidyr' %in% rownames(installed.packages())){} + else { + install.packages('tidyr', repos='http://cran.us.r-project.org') + } + if ('ggplot2' %in% rownames(installed.packages())){} + else { + install.packages('ggplot2', repos='http://cran.us.r-project.org') + } +} ins_check_run() library(dplyr); library(tidyr); library(ggplot2) ################################################################################################### @@ -228,20 +242,7 @@ if( any(cutoff < 0 | cutoff > 1) ) stop('SAINT score cutoff not between 0 and 1. Please correct and try again') } -ins_check_run <- function() { - if ('dplyr' %in% rownames(installed.packages())){} - else { - install.packages('dplyr', repos='http://cran.us.r-project.org') - } - if ('tidyr' %in% rownames(installed.packages())){} - else { - install.packages('tidyr', repos='http://cran.us.r-project.org') - } - if ('ggplot2' %in% rownames(installed.packages())){} - else { - install.packages('ggplot2', repos='http://cran.us.r-project.org') - } -} + args <- commandArgs(trailingOnly = TRUE) main(args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],args[9])