From 233490ab0169bd2d2bda8a210fcc4c3e690d6cdf Mon Sep 17 00:00:00 2001
From: Alexander Kabui
Date: Sun, 30 Jan 2022 16:24:10 +0300
Subject: fix for parametric input

---
 scripts/ctl_analysis.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scripts')

diff --git a/scripts/ctl_analysis.R b/scripts/ctl_analysis.R
index 00128be..175feed 100644
--- a/scripts/ctl_analysis.R
+++ b/scripts/ctl_analysis.R
@@ -44,7 +44,7 @@ pheno_matrix = t(matrix(as.numeric(unlist(phenoData$traits)), nrow=length(phenoD
 # # Use a data frame to store the objects
 
 
-ctls <- CTLscan(geno_matrix,pheno_matrix,nperm=input$nperm,strategy=input$strategy,parametric=TRUE,nthreads=3,verbose=TRUE)
+ctls <- CTLscan(geno_matrix,pheno_matrix,nperm=input$nperm,strategy=input$strategy,parametric=input$parametric,nthreads=3,verbose=TRUE)
 
 
 
-- 
cgit v1.2.3