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