diff options
| -rw-r--r-- | scripts/wgcna_analysis.R | 9 |
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); |