Ticket #837: scrutiny-fixes.patch
File scrutiny-fixes.patch, 1.4 KB (added by , 12 years ago) |
---|
-
statistics.scm
564 564 (let loop ((i 0)) 565 565 (if (= i (+ 1 k)) 566 566 sum-up-to-k 567 (set! sum-up-to-k (+ sum-up-to-k (binomial-probability n i p))))))) 567 (begin (set! sum-up-to-k (+ sum-up-to-k (binomial-probability n i p))) 568 sum-up-to-k))))) 568 569 569 570 ;; POISSON-PROBABILITY 570 571 ;; Rosner 100 … … 1127 1128 (if (= i number-tied) 1128 1129 (reverse result) 1129 1130 (loop (+ 1 i) 1130 (cons (cons (list-ref (+ first i) sorted-list)1131 (cons (cons (list-ref sorted-list (+ first i)) 1131 1132 (list avg-rank)) 1132 1133 result)))))))) 1133 1134 distinct-values) … … 1148 1149 48) 1149 1150 0)) 1150 1151 (var-r1 (- (/ (* n (+ 1 n) (+ 1 (* 2 n))) 24) ties-factor)) 1151 (T-score (/ (- (abs (- r1 expected-r1)) 0.5) (sqrt (var-r1)))))1152 (T-score (/ (- (abs (- r1 expected-r1)) 0.5) (sqrt var-r1)))) 1152 1153 (* (if (eq? tails ':both) 2 1) 1153 1154 (- 1 (phi T-score))))))) 1154 1155