fix backwards compatibility with octave 6

gnu-octave · Nov 30, 2022 · 698a26b · 698a26b
1 parent 9cb162e
commit 698a26b
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/inst/distributions/mvnrnd.m b/inst/distributions/mvnrnd.m
@@ -201,5 +201,5 @@
 %!error<mvnrnd: wrong size of SIGMA.> mvnrnd (ones (1, 3), ones (1, 2, 3, 4))
 
 ## Output validation tests
-%!assert (size (mvnrnd ([2, 3, 4], [2, 2, 2]), [1, 3]))
-%!assert (size (mvnrnd ([2, 3, 4], [2, 2, 2], 10), [10, 3]))
+%!assert (size (mvnrnd ([2, 3, 4], [2, 2, 2])), [1, 3])
+%!assert (size (mvnrnd ([2, 3, 4], [2, 2, 2], 10)), [10, 3])
diff --git a/inst/distributions/ncx2inv.m b/inst/distributions/ncx2inv.m
@@ -95,7 +95,7 @@
   sigma = -2 * log (mn) + temp;
   xk = exp (norminv (pk, mu, sigma));
   F = ncx2cdf (xk, df(k), delta(k));
-  h = ones(size(xk),'like',xk);
+  h = ones(size(xk), class (xk));
 
   ## Start iteration with a break out loop
   while (count < count_limit)

diff --git a/inst/normlike.m b/inst/normlike.m
@@ -124,7 +124,6 @@
 ## Test input validation
 %!error<normlike: too few input arguments.> normlike ([12, 15]);
 %!error<normlike: DATA must be a vector.> normlike ([12, 15], ones (2));
-%!error normlike ([12, 15], 3, 5, 6, 8);
 %!error<normlike: PARAMS must be a two-element vector.> ...
 %! normlike ([12, 15, 3], [1:50]);
 %!error<normlike: DATA and CENSOR vectors mismatch.> ...