From 671116e59c583c79f5673402e3157edaae70eebd Mon Sep 17 00:00:00 2001 From: hellerve Date: Mon, 11 Jun 2018 21:35:25 +0200 Subject: [PATCH] core: remove statistics.sum --- core/Statistics.carp | 13 ++----------- docs/core/Statistics.html | 2 +- test/statistics.carp | 4 ---- 3 files changed, 3 insertions(+), 16 deletions(-) diff --git a/core/Statistics.carp b/core/Statistics.carp index a7fa588b..fe3b226a 100644 --- a/core/Statistics.carp +++ b/core/Statistics.carp @@ -17,17 +17,8 @@ iqr Double ]) - (defn sum [data] - (if (= 0 (Array.length data)) - 0.0 - (let [total @(Array.nth data 0)] - (do - (for [i 1 (Array.length data)] - (set! total (+ total @(Array.nth data i)))) - total)))) - (defn mean [data] - (/ (Statistics.sum data) (from-int (Array.length data)))) + (/ (Array.sum data) (from-int (Array.length data)))) (defn _pp [a mean] (let [sum 0.0] @@ -164,7 +155,7 @@ (defn summary [samples] (Summary.init - (Statistics.sum samples) + (Array.sum samples) (Array.minimum samples) (Array.maximum samples) (mean samples) diff --git a/docs/core/Statistics.html b/docs/core/Statistics.html index 305b45a4..12b94602 100644 --- a/docs/core/Statistics.html +++ b/docs/core/Statistics.html @@ -1 +1 @@ -

Statistics

Summary

module

Module

_pp

defn

(λ [(Ref (Array Double)), Double] Double)

_ss

defn

(λ [(Ref (Array Double))] Double)

_xx

defn

(λ [(Ref (Array Double)), Double] Double)

grouped-median

defn

(λ [(Ref (Array Double)), Int] Double)

high-median

defn

(λ [(Ref (Array Double))] Double)

iqr

defn

(λ [(Ref (Array Double))] Double)

low-median

defn

(λ [(Ref (Array Double))] Double)

mean

defn

(λ [(Ref (Array Double))] Double)

median

defn

(λ [(Ref (Array Double))] Double)

median-abs-dev

defn

(λ [(Ref (Array Double))] Double)

median-abs-dev-pct

defn

(λ [(Ref (Array Double))] Double)

percentile-of-sorted

defn

(λ [(Ref (Array Double)), Double] Double)

pstdev

defn

(λ [(Ref (Array Double))] Double)

pvariance

defn

(λ [(Ref (Array Double))] Double)

quartiles

defn

(λ [(Ref (Array Double))] (Array Double))

stdev

defn

(λ [(Ref (Array Double))] Double)

stdev-pct

defn

(λ [(Ref (Array Double))] Double)

sum

defn

(λ [(Ref (Array Double))] Double)

summary

defn

(λ [(Ref (Array Double))] Summary)

variance

defn

(λ [(Ref (Array Double))] Double)

winsorize

defn

(λ [(Ref (Array Double)), Double] (Array Double))

\ No newline at end of file +

Statistics

Summary

module

Module

_pp

defn

(λ [(Ref (Array Double)), Double] Double)

_ss

defn

(λ [(Ref (Array Double))] Double)

_xx

defn

(λ [(Ref (Array Double)), Double] Double)

grouped-median

defn

(λ [(Ref (Array Double)), Int] Double)

high-median

defn

(λ [(Ref (Array Double))] Double)

iqr

defn

(λ [(Ref (Array Double))] Double)

low-median

defn

(λ [(Ref (Array Double))] Double)

mean

defn

(λ [(Ref (Array Double))] Double)

median

defn

(λ [(Ref (Array Double))] Double)

median-abs-dev

defn

(λ [(Ref (Array Double))] Double)

median-abs-dev-pct

defn

(λ [(Ref (Array Double))] Double)

percentile-of-sorted

defn

(λ [(Ref (Array Double)), Double] Double)

pstdev

defn

(λ [(Ref (Array Double))] Double)

pvariance

defn

(λ [(Ref (Array Double))] Double)

quartiles

defn

(λ [(Ref (Array Double))] (Array Double))

stdev

defn

(λ [(Ref (Array Double))] Double)

stdev-pct

defn

(λ [(Ref (Array Double))] Double)

summary

defn

(λ [(Ref (Array Double))] Summary)

variance

defn

(λ [(Ref (Array Double))] Double)

winsorize

defn

(λ [(Ref (Array Double)), Double] (Array Double))

\ No newline at end of file diff --git a/test/statistics.carp b/test/statistics.carp index c37528b7..80e797db 100644 --- a/test/statistics.carp +++ b/test/statistics.carp @@ -81,10 +81,6 @@ 5.0 (iqr &[0.0 2.5 5.0 7.5 10.0]) "iqr works as expected") - (assert-equal test - 10.0 - (sum &[2.5 5.0 2.0 0.5]) - "sum works as expected") (assert-equal test 40.0 (stdev-pct &[1.0 1.0 9.0 9.0])