Test output for statistics [fail]
Testing time: 0s
/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null
Warning: make-hash-table: "user test without user hash"
Warning: make-hash-table: "user test without user hash"
(average-rank 3 (quote (1 2 3 4 5))) => 3 ; correct
(average-rank 3 (quote (1 2 3 3 4 5))) => 7/2 ; correct
(beta-incomplete 0.2 0.1 0.3) => 0.283673017004139 ; correct
(bin-and-count (quote (1 2 3 4 5 6 7 8 9 10)) 2) => #(5 5) ; correct
(bin-and-count (quote (1 2 3 4 5 6 7 8 9 10)) 5) => #(2 2 2 2 2) ; correct
(bin-and-count (quote (1 2 2 2 3 9)) 2) => #(5 1) ; correct
(combinations 10 3) => 120 ; correct
(factorial 10) => 3628800 ; correct
(fisher-z-transform 0.1) => 0.100335347731076 ; correct
(fisher-z-transform 0.5) => 0.549306144334055 ; correct
(let-values (((a b) (gamma-incomplete 2.0 1.5))) (list (to-5-dp a) b)) => (0.44217 0.0) ; correct
(gamma-ln 0.5) => 0.5723649429247 ; correct
(permutations 10 3) => 720 ; correct
(random-pick (quote (1 2 3 4 5))) => 5 ; correct
(random-sample 3 (quote (1 2 3 4 5))) => (2 1 3) ; correct
(sign 3.5) => 1 ; correct
(sign -3.5) => -1 ; correct
(sign 0) => 0 ; correct
(square 10) => 100 ; correct
(mean (quote ())) => 0 ; correct
(mean (quote (1))) => 1 ; correct
(mean (quote (1 2 3 4 5))) => 3 ; correct
(median (quote (1))) => 1 ; correct
(median (quote (1 2 3 4 5))) => 3 ; correct
(median (quote (1 1 2 3 4 5 6 7 8))) => 4 ; correct
(let-values (((modes counts) (mode (quote (1 1 1 2 3 4 5))))) (list modes counts)) => ((1) 3) ; correct
(let-values (((modes counts) (mode (quote (1 1 1 2 3 4 4 4 5))))) (list modes counts)) => ((1 4) 3) ; correct
(geometric-mean (quote (1 100))) => 10.0 ; correct
(geometric-mean (quote (1 2 3 4 5))) => 2.60517108469735 ; correct
(range (quote (1 2 3 4 5))) => 4 ; correct
(range (quote (1 1 1 2 3 4 10))) => 9 ; correct
(percentile (quote (1 2 3 4 5 6)) 50) => 7/2 ; correct
(percentile (quote (1 2 3 4 5 6)) 30) => 2 ; correct
(variance (quote (1 2 3 4 5))) => 5/2 ; correct
(standard-deviation (quote (1 2 3 4 5))) => 1.58113883008419 ; correct
(coefficient-of-variation (quote (1 2 3 4 5))) => 52.704627669473 ; correct
(standard-error-of-the-mean (quote (1 2 3 4 5))) => 0.707106781186548 ; correct
mean => 3 ; correct
sd => 1.58113883008419 ; correct
n => 5 ; correct
(check-ec (: pair (quote ((0 0.0009765625) (1 0.009765625) (2 0.0439453125) (3 0.1171875) (4 0.205078125) (5 0.24609375) (6 0.205078125) (7 0.1171875) (8 0.0439453125) (9 0.009765625) (10 0.0009765625)))) (binomial-probability 10 (car pair) 0.5) (=> =5) (cadr pair) ()) => #<unspecified> ; correct (11 cases checked)
(check-ec (: pair (quote ((0 0.0) (1 0.0009765625) (2 0.0107421875) (3 0.0546875) (4 0.171875) (5 0.376953125) (6 0.623046875) (7 0.828125) (8 0.9453125) (9 0.9892578125) (10 0.9990234375)))) (binomial-cumulative-probability 10 (car pair) 0.5) (=> =5) (cadr pair) ()) => #<unspecified> ; correct (11 cases checked)
(check-ec (: pair (quote ((0 0.0) (1 0.0005) (2 0.0023) (3 0.0076) (4 0.0189) (5 0.0378) (6 0.0631) (7 0.0901) (8 0.1126) (9 0.1251) (10 0.1251) (11 0.1137) (12 0.0948) (13 0.0729) (14 0.0521) (15 0.0347) (16 0.0217) (17 0.0128) (18 0.0071) (19 0.0037)))) (poisson-probability 10 (car pair)) (=> =4) (cadr pair) ()) => #<unspecified> ; correct (20 cases checked)
(check-ec (: pair (quote ((0 0.0) (1 0.0) (2 0.0005) (3 0.0028) (4 0.0103) (5 0.0293) (6 0.0671) (7 0.1301) (8 0.2202) (9 0.3328) (10 0.4579) (11 0.583) (12 0.6968) (13 0.7916) (14 0.8645) (15 0.9165) (16 0.9513) (17 0.973) (18 0.9857) (19 0.9928)))) (poisson-cumulative-probability 10 (car pair)) (=> =4) (cadr pair) ()) => #<unspecified> ; correct (20 cases checked)
(check-ec (: pair (quote ((0 0.0088) (1 0.027) (2 0.0648) (3 0.121) (4 0.176) (5 0.1995) (6 0.176) (7 0.121) (8 0.0648) (9 0.027) (10 0.0088)))) (normal-pdf (car pair) 5 4) (=> =4) (cadr pair) ()) => #<unspecified> ; correct (11 cases checked)
(convert-to-standard-normal 5 6 2) => -1/2 ; correct
(check-ec (: pair (quote ((-2.0 0.0228) (-1.6 0.0548) (-1.2 0.1151) (-0.8 0.2119) (-0.4 0.3446) (0.0 0.5) (0.4 0.6554) (0.8 0.7881) (1.2 0.8849) (1.6 0.9452)))) (phi (car pair)) (=> =4) (cadr pair) ()) => #<unspecified> ; correct (10 cases checked)
(check-ec (: pair (quote ((0.1 -1.28155157138069) (0.2 -0.84162122453
FORMAT: error with call: (format #t "~%Spearman correlation coefficient ~f<===, p = ~f~%" ===>113/165 0.0288827975067328 )
argument is not a number or a number string
Error: error in format
Call history:
<syntax> (##core#lambda () s)
<syntax> (##core#begin s)
<syntax> (##core#undefined)
<syntax> (check p (=> =5) 0.0288827975067328)
<syntax> (##core#if (>=2823 check:mode2824 1) (##core#begin (check:proc2825 (quote2826 p) (lambda2827 () p) =5...
<syntax> (>=2823 check:mode2824 1)
<syntax> (##core#begin (check:proc2825 (quote2826 p) (lambda2827 () p) =5 0.0288827975067328))
<syntax> (check:proc2825 (quote2826 p) (lambda2827 () p) =5 0.0288827975067328)
<syntax> (quote2826 p)
<syntax> (##core#quote p)
<syntax> (lambda2827 () p)
<syntax> (##core#lambda () p)
<syntax> (##core#begin p)
<syntax> (##core#undefined)
<eval> (##sys#call-with-values (##core#lambda () (spearman-rank-correlation (quote ((4 5) (10 8) (3 6) (1 2...
<eval> (spearman-rank-correlation (quote ((4 5) (10 8) (3 6) (1 2) (9 10) (2 3) (6 9) (7 4) (8 7) (5 1)))) <--
5145)))) (z (car pair)) (=> =5) (cadr pair) ()) => #<unspecified> ; correct (2 cases checked)
(t-distribution 1 0.9) => 3.07763671875 ; correct
(t-distribution 10 0.9) => 1.3721923828125 ; correct
(chi-square 10 0.4405) => 10.0 ; correct
(chi-square 3 0.1718) => 5.0 ; correct
(chi-square-cdf 10 10) => 0.559506714934786 ; correct
(chi-square-cdf 5 3) => 0.828202855703266 ; correct
upper-bound => 0.724273681640625 ; correct
lower-bound => 0.851547241210938 ; correct
upper-bound => 8.305419921875 ; correct
lower-bound => 10.0635986328125 ; correct
upper-bound => 0.491747852700165 ; correct
lower-bound => 0.508252147299835 ; correct
upper-bound => 2.90535368828478 ; correct
lower-bound => 3.09464631171522 ; correct
(z-test 40 1 mu: 50 sigma: 10 tails: (quote :negative)) => 0.158655253931457 ; correct
(z-test 40 10 mu: 50 sigma: 10 tails: (quote :negative)) => 0.000782701129001639 ; correct
(z-test 40 5 mu: 50 sigma: 10) => 0.0253473186774689 ; correct
(z-test 11/5 5 mu: 2 sigma: 1) => 0.654720846018577 ; correct
(z-test-on-sequence (quote (1 1 2 3 4)) mu: 2 sigma: 1) => 0.654720846018577 ; correct
(t-test-one-sample 5 0.8 3 6) => 0.162781641721079 ; correct
(t-test-one-sample-on-sequence (quote (5 6 7)) 5.9) => 0.878433865229034 ; correct
(correlation-test-two-sample 0.9 100 0.85 50) => 0.224083300908794 ; correct
(t-test-paired 7/3 0.57735 3) => 0.0198039232581804 ; correct
(t-test-paired-on-sequences (quote (4 3 5)) (quote (1 1 3))) => 0.0198039411803931 ; correct
Spearman correlation coefficient