steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.statistics: minor style cleanup.

db4
John Benediktsson 2012-07-10 17:03:01 -07:00
parent f932ca2090
commit 0c5f895371
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/math/statistics/statistics.factor
View File

@ -142,8 +142,7 @@ PRIVATE>
bi kth-smallests first2 ; bi kth-smallests first2 ;
: median ( seq -- x ) : median ( seq -- x )
dup length odd? dup length odd? [ lower-median ] [ medians + 2 / ] if ;
[ lower-median ] [ medians + 2 / ] if ;
! quantile can be any n-tile. quartile is n = 4, percentile is n = 100 ! quantile can be any n-tile. quartile is n = 4, percentile is n = 100
! a,b,c,d parameters, N - number of samples, q is quantile (1/2 for median, 1/4 for 1st quartile) ! a,b,c,d parameters, N - number of samples, q is quantile (1/2 for median, 1/4 for 1st quartile)