fixed bug in test_script

gnu-octave · Sep 26, 2023 · 3c98d5f · 3c98d5f
1 parent 0fcc59e
commit 3c98d5f
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/test/test_script.m b/test/test_script.m
@@ -718,9 +718,10 @@
   randtest2 (X, Y, [], []);
   X = randn (9,1);
   Y = randn (9,1);
-  pval5 = randtest2 (X, Y, false, [], 1);
-  pval6 = randtest2 (X, Y, false, [], 1);
-  pval6 = randtest2 (X, Y, false, [], []);
+  pval5 = randtest2 (X, Y, false, 5000);
+  pval5 = randtest2 (X, Y, false, [], [], 1);
+  pval6 = randtest2 (X, Y, false, [], @(X, Y) mean (X) - mean (Y), 1);
+  pval7 = randtest2 (X, Y, false, [], @(A, B) log (var (A) ./ var (B)), 1);
 
   % credint:test:1
   randn ('seed', 1);