Test output for statistics

Testing time: 36.0s

CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm

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))) => 1 ; correct

(random-sample 3 (quote (1 2 3 4 5))) => (3 1 4) ; 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.841621224535145)))) (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 0.684848484848485, p = 0.0288827975067328

s => 0.684848484848485 ; correct

p => 0.0288827975067328 ; correct

(t-test-one-sample-sse 5.0 5.2 0.5) => 163 ; correct

n1 => 1040 ; correct

n2 => 1040 ; correct

(correlation-sse 0.8 alpha: 0.05 1-beta: 0.9) => 11 ; correct

Intercept = -0.3, slope = 0.35, r = 0.970725343394151, R^2 = 0.942307692307692, p = 0.154420958311267

a => -0.3 ; correct

b => 0.35 ; correct

r => 0.970725343394151 ; correct

r2 => 0.942307692307692 ; correct

p => 0.154420958311267 ; correct

(correlation-coefficient (quote ((1.0 0.1) (2.0 0.3) (3.0 0.8)))) => 0.970725343394151 ; correct

(t-significance 0.2 5) => 0.849360513995829 ; correct

(t-significance 0.2 5 tails: (quote :both)) => 0.849360513995829 ; correct

(t-significance 0.2 5 tails: (quote :positive)) => 0.424680256997915 ; correct

(t-significance 0.2 5 tails: (quote :negative)) => 0.575319743002085 ; correct

(f-significance 1.5 8 2) => 0.920449812578091 ; correct

(f-significance 1.5 8 2 one-tailed?: #t) => 0.460224906289046 ; correct

(binomial-test-two-sample 0.2 100 0.3 50) => 0.245930683028145 ; correct

(fisher-exact-test 10 20 30 40) => 0.506662142723511 ; correct

; *** checks *** : 92 correct, 0 failed.