From 827811810bd37aaca7456b74efc80779f63dcc04 Mon Sep 17 00:00:00 2001
From: Alexander Kabui
Date: Fri, 14 Jan 2022 01:16:35 +0300
Subject: generate network

---
 scripts/ctl_analysis.R | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'scripts')

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)
 
 
-- 
cgit v1.2.3