From f9dec15fb4a1fc24dfb963ed69f2a5cbbd4f31d3 Mon Sep 17 00:00:00 2001
From: Alexander Kabui
Date: Mon, 14 Jun 2021 13:50:21 +0300
Subject: fix missing call to bicorAndPvalue

---
 gn3/computations/biweight.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gn3/computations/biweight.R b/gn3/computations/biweight.R
index d0d8de4..05f7145 100644
--- a/gn3/computations/biweight.R
+++ b/gn3/computations/biweight.R
@@ -7,7 +7,7 @@ trait_vals <- as.numeric(unlist(strsplit(myArgs[1], split=" ")))
 target_vals <- as.numeric(unlist(strsplit(myArgs[2], split=" ")))
 
 BiweightMidCorrelation <- function(trait_val,target_val){
-    # results <- bicorAndPvalue(x,y)
+    results <- bicorAndPvalue(x,y)
     return (list(c(results$bicor)[1],c(results$p)[1]))
 }
 cat(BiweightMidCorrelation(trait_vals,target_vals))
-- 
cgit v1.2.3