diff soft-threshold.R @ 4:5717a09ed722 draft

Uploaded

--- a/soft-threshold.R	Mon Feb 27 23:00:03 2017 -0500
+++ b/soft-threshold.R	Tue Feb 28 10:46:47 2017 -0500
@@ -1,5 +1,18 @@
 #!/usr/binenv Rscript
 
+## Create the personal library if it doesn't exist. Ignore a warning if the directory already exists.
+dir.create(Sys.getenv("R_LIBS_USER"), showWarnings = FALSE, recursive = TRUE)
+## Install one package.
+install.packages("getopt", Sys.getenv("R_LIBS_USER"), repos = "http://cran.case.edu", dependencies = TRUE )
+install.packages("ggplot2", Sys.getenv("R_LIBS_USER"), repos = "http://cran.case.edu" , dependencies = TRUE)
+install.packages("ggdendro", Sys.getenv("R_LIBS_USER"), repos = "http://cran.case.edu" , dependencies = TRUE)
+install.packages("class", Sys.getenv("R_LIBS_USER"), repos = "http://cran.case.edu" , dependencies = TRUE)
+install.packages("cluster", Sys.getenv("R_LIBS_USER"), repos = "http://cran.case.edu" , dependencies = TRUE)
+install.packages("impute", Sys.getenv("R_LIBS_USER"), repos = "http://cran.case.edu" , dependencies = TRUE)
+install.packages("Hmisc", Sys.getenv("R_LIBS_USER"), repos = "http://cran.case.edu" , dependencies = TRUE)
+install.packages("WGCNA", Sys.getenv("R_LIBS_USER"), repos = "http://cran.case.edu" , dependencies = TRUE)
+
+
 # A command-line interface to WGCNA for use with galaxy
 
 
@@ -95,4 +108,4 @@
   xlab("R power") +
   ylab("Mean connectivity")
 
-dev.off()
\ No newline at end of file
+dev.off()