From 6207655ab285a7fa10bba99b2801526bfae72182 Mon Sep 17 00:00:00 2001
From: Miroslav Lichvar <mlichvar@redhat.com>
Date: Wed, 21 Jun 2017 19:11:10 +0200
Subject: [PATCH] regress: provide function to find median

---
 regress.c | 13 +++++++++++++
 regress.h |  3 +++
 2 files changed, 16 insertions(+)

diff --git a/regress.c b/regress.c
index 68ef4fa..e744c50 100644
--- a/regress.c
+++ b/regress.c
@@ -429,6 +429,19 @@ find_median(double *x, int n)
   }
 }
 
+/* ================================================== */
+
+double
+RGR_FindMedian(double *x, int n)
+{
+  double tmp[MAX_POINTS];
+
+  assert(n > 0 && n <= MAX_POINTS);
+  memcpy(tmp, x, n * sizeof (tmp[0]));
+
+  return find_median(tmp, n);
+}
+
 /* ================================================== */
 /* This function evaluates the equation
 
diff --git a/regress.h b/regress.h
index 4e4c32b..90055da 100644
--- a/regress.h
+++ b/regress.h
@@ -131,4 +131,7 @@ RGR_MultipleRegress
  double *b2                     /* estimated second slope */
 );
 
+/* Return the median value from an array */
+extern double RGR_FindMedian(double *x, int n);
+
 #endif /* GOT_REGRESS_H */