math.statistics: remove probabilities word, not really needed.
parent
ca69afec31
commit
6072e58db3
|
@ -333,9 +333,6 @@ ALIAS: corr sample-corr
|
||||||
: cum-max ( seq -- seq' )
|
: cum-max ( seq -- seq' )
|
||||||
dup ?first [ max ] cum-map ;
|
dup ?first [ max ] cum-map ;
|
||||||
|
|
||||||
: probabilities ( seq -- probabilities )
|
|
||||||
[ histogram values ] [ length ] bi v/n ;
|
|
||||||
|
|
||||||
: entropy ( probabilities -- n )
|
: entropy ( probabilities -- n )
|
||||||
dup sum '[ _ / dup log * ] map-sum neg ;
|
dup sum '[ _ / dup log * ] map-sum neg ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue