steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.statistics: adding mean-dev and median-dev.

db4
John Benediktsson 2012-05-04 14:40:24 -07:00
parent bacdd691fc
commit 4339b14d77
2 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/math/statistics/statistics-tests.factor
View File

@ -58,6 +58,9 @@ IN: math.statistics.tests
[ 0.0 ] [ { 1 } std ] unit-test [ 0.0 ] [ { 1 } std ] unit-test
[ 0.0 ] [ { 1 } ste ] unit-test [ 0.0 ] [ { 1 } ste ] unit-test
{ 2 } [ { 1 3 5 7 } mean-dev ] unit-test
{ 4/5 } [ { 1 3 3 3 5 } median-dev ] unit-test
[ [
H{ H{
{ 97 2 } { 97 2 }

4
basis/math/statistics/statistics.factor
View File

@ -239,6 +239,10 @@ ALIAS: var sample-var
ALIAS: std sample-std ALIAS: std sample-std
: mean-dev ( seq -- x ) dup mean v-n vabs mean ;
: median-dev ( seq -- x ) dup median v-n vabs mean ;
: sample-ste ( seq -- x ) [ sample-std ] [ length ] bi sqrt / ; : sample-ste ( seq -- x ) [ sample-std ] [ length ] bi sqrt / ;
: full-ste ( seq -- x ) [ full-std ] [ length ] bi sqrt / ; : full-ste ( seq -- x ) [ full-std ] [ length ] bi sqrt / ;