Increase test tolerance under Octave for lpdfgweibull.m
parent
b85267e03c
commit
ca1c6ecc0e
|
@ -262,8 +262,12 @@ end
|
|||
%$ end
|
||||
%$
|
||||
%$ if t(1)
|
||||
%$ if isoctave()
|
||||
%$ t(2) = abs(s-1)<5e-5;
|
||||
%$ else
|
||||
%$ t(2) = abs(s-1)<1e-6;
|
||||
%$ end
|
||||
%$ end
|
||||
%$
|
||||
%$ T = all(t);
|
||||
%@eof:10
|
||||
|
@ -423,9 +427,13 @@ end
|
|||
%$ for i=1:n
|
||||
%$ x = .1*i;
|
||||
%$ q = 1-exp(-(x/scale)^shape);
|
||||
%$ if isoctave()
|
||||
%$ t(i+1) = abs(s(i)-q)<5e-5;
|
||||
%$ else
|
||||
%$ t(i+1) = abs(s(i)-q)<1e-6;
|
||||
%$ end
|
||||
%$ end
|
||||
%$ end
|
||||
%$
|
||||
%$ T = all(t);
|
||||
%@eof:16
|
Loading…
Reference in New Issue