Unit test wblinv.m under Octave: adjust tolerance
parent
477a09e9ef
commit
ce4ab7f7d8
|
@ -155,7 +155,11 @@ t = exp(log(scale)+log(-log(1-proba))/shape);
|
||||||
%$ if debug
|
%$ if debug
|
||||||
%$ [s, abs(p-s)]
|
%$ [s, abs(p-s)]
|
||||||
%$ end
|
%$ end
|
||||||
|
%$ if isoctave
|
||||||
|
%$ t(k) = abs(p-s)<1e-10;
|
||||||
|
%$ else
|
||||||
%$ t(k) = abs(p-s)<1e-12;
|
%$ t(k) = abs(p-s)<1e-12;
|
||||||
|
%$ end
|
||||||
%$ end
|
%$ end
|
||||||
%$ end
|
%$ end
|
||||||
%$ end
|
%$ end
|
||||||
|
|
Loading…
Reference in New Issue