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.