Changeset 32983 in project
 Timestamp:
 12/15/15 23:12:27 (6 years ago)
 Location:
 release/4/statistics/trunk
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

release/4/statistics/trunk/statistics.scm
r25160 r32983 1498 1498 (ts (if (= 1 rs) 1 (/ (* rs (sqrt ( n 2))) (sqrt ( 1 (square rs)))))) 1499 1499 (p (tsignificance ts ( n 2) #:tails ':both))) 1500 (format #t "~%Spearman correlation coefficient ~ f, p = ~f~%" rs p)1500 (format #t "~%Spearman correlation coefficient ~A, p = ~A~%" rs p) 1501 1501 (values rs p)))) 1502 1502 
release/4/statistics/trunk/tests/run.scm
r21860 r32983 3 3 (requireextension srfi42) 4 4 (requireextension srfi78) 5 (requireextension numbers) 5 6 (requireextension statistics) 6 7 … … 264 265 265 266 (letvalues (((s p) (spearmanrankcorrelation '((4 5) (10 8) (3 6) (1 2) (9 10) (2 3) (6 9) (7 4) (8 7) (5 1))))) 266 (check s (=> =5) 0.684848484848485)267 267 (check s (=> =5) (/ 113 165)) 268 (check p (=> =5) 0.0288827975067328)) 268 269 269 270 ;;  tests of sample size estimates
Note: See TracChangeset
for help on using the changeset viewer.