diff options
| author | Alexander Kabui | 2022-01-14 01:16:35 +0300 |
|---|---|---|
| committer | BonfaceKilz | 2022-01-22 09:23:14 +0300 |
| commit | 827811810bd37aaca7456b74efc80779f63dcc04 (patch) | |
| tree | ec5c9682b374303b569a1be619fa64216f6a7c57 /scripts | |
| parent | e7d8432c16b0ab63e49d3bfcd29fc8a8cad8462d (diff) | |
| download | genenetwork3-827811810bd37aaca7456b74efc80779f63dcc04.tar.gz | |
generate network
Diffstat (limited to 'scripts')
| -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) |