aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Kabui2022-01-14 01:16:35 +0300
committerBonfaceKilz2022-01-22 09:23:14 +0300
commit827811810bd37aaca7456b74efc80779f63dcc04 (patch)
treeec5c9682b374303b569a1be619fa64216f6a7c57
parente7d8432c16b0ab63e49d3bfcd29fc8a8cad8462d (diff)
downloadgenenetwork3-827811810bd37aaca7456b74efc80779f63dcc04.tar.gz
generate network
-rw-r--r--scripts/ctl_analysis.R10
1 files changed, 10 insertions, 0 deletions
diff --git a/scripts/ctl_analysis.R b/scripts/ctl_analysis.R
index e734876..4002adb 100644
--- a/scripts/ctl_analysis.R
+++ b/scripts/ctl_analysis.R
@@ -96,6 +96,16 @@ for (trait in phenoData$trait_db_list)
}
# rename coz of duplicate key names
+
+network_file_path = file.path(input$imgDir,paste("ctlnet","random",".sif",sep=""))
+
+
+file.create(network_file_path)
+
+ctl_network = CTLnetwork(ctls, significance = 0.05, LODdrop = 2,short = FALSE, add.qtls = FALSE, file = network_file_path, verbose = TRUE)
+
+
+
json_data <- list(significance_table = ctl_significant,image_loc = imageLoc,ctl_plots=ctl_plots)