math.statistics: use if-zero in mean-ddof.
parent
7b44637177
commit
8a2028d2c6
|
@ -12,7 +12,7 @@ IN: math.statistics
|
|||
! Delta in degrees-of-freedom
|
||||
: mean-ddof ( seq ddof -- x )
|
||||
[ [ sum ] [ length ] bi ] dip -
|
||||
dup zero? [ 2drop 0 ] [ / ] if ; inline
|
||||
[ drop 0 ] [ / ] if-zero ; inline
|
||||
|
||||
: mean ( seq -- x )
|
||||
0 mean-ddof ; inline
|
||||
|
|
Loading…
Reference in New Issue