non-vec test fun

Funz · Nov 25, 2022 · 54b61c7 · 54b61c7
1 parent c70ab24
commit 54b61c7
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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(