From 1ae04f1247045c1cd721e62686400106e2bab1fc Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 7 Feb 2013 15:50:34 -0800
Subject: [PATCH] math.statistics: adding z-score.

---
 basis/math/statistics/statistics-docs.factor | 4 ++++
 basis/math/statistics/statistics.factor      | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/basis/math/statistics/statistics-docs.factor b/basis/math/statistics/statistics-docs.factor
index 78f2109f17..ca726a159b 100644
--- a/basis/math/statistics/statistics-docs.factor
+++ b/basis/math/statistics/statistics-docs.factor
@@ -267,6 +267,10 @@ HELP: collect-index-by
     }
 } ;
 
+HELP: z-score
+{ $values { "seq" sequence } { "n" number } }
+{ $description "Calculates the Z-Score for " { $snippet "seq" } "." } ;
+
 ARTICLE: "histogram" "Computing histograms"
 "Counting elements in a sequence:"
 { $subsections
diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index e68817ec37..195d9906dd 100644
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -388,3 +388,6 @@ ALIAS: std sample-std
         [ values ] map [ 0 [ length + ] accumulate nip ] [ ] bi zip
     ] [ length f <array> ] bi
     [ '[ first2 [ _ set-nth ] with each ] each ] keep ;
+
+: z-score ( seq -- n )
+    dup [ mean ] [ sample-std ] bi '[ _ - _ / ] map ;