# HG changeset patch
# User mingchen0919
# Date 1488296807 18000
# Node ID 5717a09ed722ca3523bea3aae98eb0a22a87fd03
# Parent  55b76aecccec1ddeea14c6b8820ef112203f375a
Uploaded

diff -r 55b76aecccec -r 5717a09ed722 soft-threshold.R
--- 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()