Skip to content
Snippets Groups Projects
Commit ca1c6ecc authored by Johannes Pfeifer's avatar Johannes Pfeifer
Browse files

Increase test tolerance under Octave for lpdfgweibull.m

parent b85267e0
No related branches found
No related tags found
No related merge requests found
......@@ -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
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment