Cumulative standard deviation: Difference between revisions
Content added Content deleted
(add cl) |
m (eliminate variable used in only one place) |
||
Line 116: | Line 116: | ||
(defun standard-deviation (samples) |
(defun standard-deviation (samples) |
||
(let (( |
(let ((mean (arithmetic-average samples))) |
||
(sqrt (* (/ 1.0d0 (length samples)) |
|||
(sqrt (* (/ 1.0d0 len) |
|||
(reduce #'+ samples |
(reduce #'+ samples |
||
:key (lambda (x) |
:key (lambda (x) |
||
(expt (- x mean) 2.0d0))))))) |
(expt (- x mean) 2.0d0))))))) |
||
(defun make-deviator () |
(defun make-deviator () |