diff options
| -rw-r--r-- | scripts/ctl_analysis.R | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/scripts/ctl_analysis.R b/scripts/ctl_analysis.R index dd47759..e36ddd1 100644 --- a/scripts/ctl_analysis.R +++ b/scripts/ctl_analysis.R @@ -28,8 +28,6 @@ cat("The input data is \n") genoData <- input$genoData phenoData <- input$phenoData - -# formData <- input$form # create the matixes # genotypes Matrix of genotypes. (individuals x markers) @@ -217,8 +215,7 @@ ctl_network = CTLnetworkGn(ctls, significance = 0.05, LODdrop = 2,short = FALSE, -json_data <- list(significance_table = ctl_significant,image_loc = imageLoc,ctl_plots=ctl_plots) - +json_data <- list(phenotypes = input$phenoData$trait_db_list,significance_data = ctl_significant,image_loc = imageLoc,ctl_plots=ctl_plots,network_file_name = network_file_name) json_data <- toJSON(json_data) |