mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-26 05:45:37 +03:00
core: remove statistics.sum
This commit is contained in:
parent
2e742a9c18
commit
671116e59c
@ -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)
|
||||
|
File diff suppressed because one or more lines are too long
@ -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])
|
||||
|
Loading…
Reference in New Issue
Block a user