add biweight r script and tests

1 files changed, 8 insertions, 2 deletions

diff --git a/gn3/computations/correlations.py b/gn3/computations/correlations.py
index f0ce502..89d37fc 100644
--- a/gn3/computations/correlations.py
+++ b/gn3/computations/correlations.py
@@ -7,6 +7,7 @@ from typing import Optional
 from typing import Callable
 
 import scipy.stats
+from gn3.computations.biweight import call_biweight_script
 
 
 def map_shared_keys_to_values(target_sample_keys: List,
@@ -99,8 +100,13 @@ def do_bicor(x_val, y_val) -> Tuple[float, float]:
 package :not packaged in guix
 
     """
-    x_val, y_val = 0, 0
-    return (x_val, y_val)
+
+    try:
+        results = call_biweight_script(x_val, y_val)
+    except Exception as error:
+        raise error
+
+    return results
 
 
 def filter_shared_sample_keys(this_samplelist,