Cumulative standard deviation: Difference between revisions

Content deleted Content added

Inline

@@ Line 116: / Line 116: @@
 (defun standard-deviation (samples)
-  (let ((len (length samples))
+  (let ((mean (arithmetic-average samples)))
-        (mean (arithmetic-average samples)))
+    (sqrt (* (/ 1.0d0 (length samples))
-    (sqrt (* (/ 1.0d0 len)
              (reduce #'+ samples
                      :key (lambda (x)
-                       (expt (- x mean) 2.0d0)))))))
+                            (expt (- x mean) 2.0d0)))))))
 (defun make-deviator ()