From fed7009b5eec9cc8b9370d4fb8486c7e4136b3d4 Mon Sep 17 00:00:00 2001
From: Alexander Kabui
Date: Wed, 23 Jun 2021 10:18:54 +0300
Subject: minor fixes for biweight script

---
 scripts/calculate_biweight.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'scripts')

diff --git a/scripts/calculate_biweight.R b/scripts/calculate_biweight.R
index bad93cb..8d8366e 100644
--- a/scripts/calculate_biweight.R
+++ b/scripts/calculate_biweight.R
@@ -13,7 +13,7 @@ ParseArgs <- function(args){
 }
 BiweightMidCorrelation <- function(trait_val,target_val){
 
-    results <- bicorAndPvalue(c(trait_val),c(target_val))
+    results <-bicorAndPvalue(as.numeric(unlist(trait_val)),as.numeric(unlist(target_val)))
     return ((c(c(results$bicor)[1],c(results$p)[1])))
 
 }
@@ -39,4 +39,5 @@ test_that("parsing args "),{
 
 parsed_values <- ParseArgs(arg_values)
 
-cat((BiweightMidCorrelation(parsed_values[1],parsed_values[2])))
\ No newline at end of file
+
+cat(BiweightMidCorrelation(parsed_values[1],parsed_values[2]))
\ No newline at end of file
-- 
cgit v1.2.3