Verify distribution uniformity/Naive: Difference between revisions

Content added Content deleted

Inline

@@ Line 182: / Line 182: @@
   freqtable=. /:~ (~. ,. #/.~) sample
   expected=. n % # freqtable
-  'lbound ubound'=. expected * 1 (- , +) delta
   errmsg=. 'Distribution is potentially skewed'
-  errmsg assert (lbound&< *. ubound&>) {:"1 freqtable
+  errmsg assert expected (delta&*@[ > |@:-) {:"1 freqtable
   freqtable
 )