diff options
| -rw-r--r-- | scripts/ctl_analysis.R | 10 |
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) |