basis/math/statistics/statistics-tests.factor

   1 USING: kernel math math.functions math.statistics tools.test ;
   2 IN: math.statistics.tests
   3
   4 [ 1 ] [ { 1 } mean ] unit-test
   5 [ 3/2 ] [ { 1 2 } mean ] unit-test
   6 [ 0 ] [ { 0 0 0 } geometric-mean ] unit-test
   7 [ t ] [ { 2 2 2 2 } geometric-mean 2.0 .0001 ~ ] unit-test
   8 [ 1.0 ] [ { 1 1 1 } geometric-mean ] unit-test
   9 [ 1/3 ] [ { 1 1 1 } harmonic-mean ] unit-test
  10
  11 [ 0 ] [ { 1 } range ] unit-test
  12 [ 89 ] [ { 1 2 30 90 } range ] unit-test
  13 [ 2 ] [ { 1 2 3 } median ] unit-test
  14 [ 5/2 ] [ { 1 2 3 4 } median ] unit-test
  15
  16 [ { } median ] must-fail
  17 [ { } upper-median ] must-fail
  18 [ { } lower-median ] must-fail
  19
  20 [ 2 ] [ { 1 2 3 4 } lower-median ] unit-test
  21 [ 3 ] [ { 1 2 3 4 } upper-median ] unit-test
  22 [ 3 ] [ { 1 2 3 4 5 } lower-median ] unit-test
  23 [ 3 ] [ { 1 2 3 4 5 } upper-median ] unit-test
  24
  25
  26 [ 1 ] [ { 1 } lower-median ] unit-test
  27 [ 1 ] [ { 1 } upper-median ] unit-test
  28 [ 1 ] [ { 1 } median ] unit-test
  29
  30 [ 1 ] [ { 1 2 } lower-median ] unit-test
  31 [ 2 ] [ { 1 2 } upper-median ] unit-test
  32 [ 3/2 ] [ { 1 2 } median ] unit-test
  33
  34 [ 1 ] [ { 1 2 3 } var ] unit-test
  35 [ 1.0 ] [ { 1 2 3 } std ] unit-test
  36 [ t ] [ { 1 2 3 4 } ste 0.6454972243679028 - .0001 < ] unit-test
  37
  38 [ t ] [ { 23.2 33.4 22.5 66.3 44.5 } std 18.1906 - .0001 < ] unit-test
  39
  40 [ 0 ] [ { 1 } var ] unit-test
  41 [ 0.0 ] [ { 1 } std ] unit-test
  42 [ 0.0 ] [ { 1 } ste ] unit-test