From 13a224b6a3497b448eac4ffb86b0db707f6957a7 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 23 Feb 2021 16:08:11 +0530
Subject: Wrap gsl rstat functions.

* scm/extent-sampling/wrap.scm (rstat-alloc, rstat-n): New functions.
---
 scm/extent-sampling/wrap.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'scm')

diff --git a/scm/extent-sampling/wrap.scm b/scm/extent-sampling/wrap.scm
index 180ac91..63d3d9e 100644
--- a/scm/extent-sampling/wrap.scm
+++ b/scm/extent-sampling/wrap.scm
@@ -148,6 +148,16 @@
       histogram input)
      histogram)))
 
+;; Running statistics
+
+(define rstat-alloc
+  (make-gsl-alloc "gsl_rstat_alloc" (list) "gsl_rstat_free"))
+
+(define-public rstat-n
+  (pointer->procedure size_t
+                      (dynamic-func "gsl_rstat_n" lib-extentsampling)
+                      (list '*)))
+
 ;; nd-random
 
 (define-public (random-direction-vector dimension)
-- 
cgit v1.2.3