aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Kabui2021-09-15 02:19:03 +0300
committerAlexander Kabui2021-09-15 02:19:03 +0300
commit94e2e79141cbddb48456fb5707eb0e4e36e97d3b (patch)
tree82b02a39ef7f43ca7912c2267e33fa5bea72319f
parente0f25dedea08842820424ced51af9af0c7eaab4b (diff)
downloadgenenetwork3-94e2e79141cbddb48456fb5707eb0e4e36e97d3b.tar.gz
rename variables && delete debugs
-rw-r--r--scripts/wgcna_analysis.R9
1 files changed, 2 insertions, 7 deletions
diff --git a/scripts/wgcna_analysis.R b/scripts/wgcna_analysis.R
index 54650df..390bee4 100644
--- a/scripts/wgcna_analysis.R
+++ b/scripts/wgcna_analysis.R
@@ -1,7 +1,3 @@
-# initial workspace setup
-
-
-# todo pass required input data here
library(WGCNA);
library(stringi);
@@ -11,15 +7,14 @@ imgDir = Sys.getenv("GENERATED_IMAGE_DIR")
# load expression data **assumes csv format row(traits)(columns info+samples)
-wgcnaRawData <- read.csv(file = "wgcna_data.csv")
+inputData <- read.csv(file = "wgcna_data.csv")
# transform expressionData
-dataExpr <- as.data.frame(t(wgcnaRawData));
+dataExpr <- as.data.frame(t(inputData));
# data cleaning
-# adopted from docs
gsg = goodSamplesGenes(dataExpr, verbose = 3);