From 54b61c7aff6bef0b8e849e52259fa8c08cc2d5f2 Mon Sep 17 00:00:00 2001
From: Yann Richet <yann.richet@laposte.net>
Date: Fri, 25 Nov 2022 22:12:33 +0100
Subject: [PATCH] non-vec test fun

---
 src/test/cases.Morris/sobol.R | 4 ++--
 src/test/cases/sobol.R        | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/test/cases.Morris/sobol.R b/src/test/cases.Morris/sobol.R
index d01c811..6270e6c 100644
--- a/src/test/cases.Morris/sobol.R
+++ b/src/test/cases.Morris/sobol.R
@@ -9,9 +9,9 @@ f <- function(X) {
   a <- c(0, 1, 4.5, 9, 99, 99, 99, 99)
   y <- 1
   for (j in 1:8) {
-    y <- y * (abs(4 * X[, j] - 2) + a[j]) / (1 + a[j])
+    y <- y * (abs(4 * X[j] - 2) + a[j]) / (1 + a[j])
   }
-  matrix(y,nrow=nrow(X))
+  y
 }
 
 input.f = list(
diff --git a/src/test/cases/sobol.R b/src/test/cases/sobol.R
index d01c811..6270e6c 100644
--- a/src/test/cases/sobol.R
+++ b/src/test/cases/sobol.R
@@ -9,9 +9,9 @@ f <- function(X) {
   a <- c(0, 1, 4.5, 9, 99, 99, 99, 99)
   y <- 1
   for (j in 1:8) {
-    y <- y * (abs(4 * X[, j] - 2) + a[j]) / (1 + a[j])
+    y <- y * (abs(4 * X[j] - 2) + a[j]) / (1 + a[j])
   }
-  matrix(y,nrow=nrow(X))
+  y
 }
 
 input.f = list(