Unit test wblinv.m under Octave: adjust tolerance

2017-01-18 10:59:09 +01:00 · 2017-01-18 10:59:09 +01:00 · ce4ab7f7d8
parent 477a09e9ef
commit ce4ab7f7d8
1 changed files with 4 additions and 0 deletions
--- a/matlab/missing/stats/wblinv.m
+++ b/matlab/missing/stats/wblinv.m
@ -155,7 +155,11 @@ t = exp(log(scale)+log(-log(1-proba))/shape);
 %$           if debug
 %$               [s, abs(p-s)]
 %$           end
+%$         if isoctave
+%$           t(k) = abs(p-s)<1e-10;  
+%$         else
 %$           t(k) = abs(p-s)<1e-12;
+%$         end
 %$       end
 %$    end
 %$ end