| … | … | @@ -296,6 +296,9 @@ |
| 296 | 296 | (lambda (x) (frqobj 'left-wild-mi x)))) |
| 297 | 297 | (define rsum (right-sum |
| 298 | 298 | (lambda (x) (frqobj 'right-wild-mi x)))) |
| 299 | (if (> 1.0e-4 (abs lsum)) | |
| 300 | (throw 'bad-summation 'compute-total-mi | |
| 301 | (format #f "No MI available on the dataset!\n"))) | |
| 299 | 302 | (if (< 1.0e-8 (/ (abs (- lsum rsum)) lsum)) |
| 300 | 303 | (throw 'bad-summation 'compute-total-mi |
| 301 | 304 | (format #f |