status-im
/
timbre
mirror of https://github.com/status-im/timbre.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Profiling stats housekeeping

This commit is contained in:
Peter Taoussanis 2014-03-17 23:11:43 +07:00
parent 48a026b695
commit e92d78789c
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/taoensso/timbre/profiling.clj
View File

@ -145,15 +145,18 @@
(if (empty? times) m (if (empty? times) m
(let [ts-count (max 1 ntimes) (let [ts-count (max 1 ntimes)
ts-time (reduce + times) ts-time (reduce + times)
ts-mean (long (/ ts-time ts-count)) ts-mean (/ ts-time ts-count)
ts-mad-sum (long (reduce + (map #(Math/abs (long (- % ts-mean))) ;; Batched "online" MAD calculation here is >= the standard
times))) ; Mean absolute deviation ;; Knuth/Welford method, Ref. http://goo.gl/QLSfOc,
;; http://goo.gl/mx5eSK.
ts-mad-sum (reduce + (map #(Math/abs (long (- % ts-mean)))
times)) ; Mean absolute deviation
;; ;;
s-count (+ (:count stats 0) ts-count) s-count (+ (:count stats 0) ts-count)
s-time (+ (:time stats 0) ts-time) s-time (+ (:time stats 0) ts-time)
s-mean (long (/ s-time s-count)) s-mean (/ s-time s-count)
s-mad-sum (long (+ (:mad-sum stats 0) ts-mad-sum)) s-mad-sum (+ (:mad-sum stats 0) ts-mad-sum)
s-mad (long (/ s-mad-sum s-count)) s-mad (/ s-mad-sum s-count)
s-min (apply min (:min stats Double/POSITIVE_INFINITY) times) s-min (apply min (:min stats Double/POSITIVE_INFINITY) times)
s-max (apply max (:max stats 0) times)] s-max (apply max (:max stats 0) times)]
(assoc m id (assoc m id