Modify application of user-defined fnMap

ArdiaD · Nov 6, 2022 · d8cfef1 · d8cfef1
1 parent 4bb3bcf
commit d8cfef1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/DEoptim.R b/R/DEoptim.R
@@ -235,7 +235,7 @@ DEoptim <- function(fn, lower, upper, control = DEoptim.control(), ...,
   if(!is.null(fnMap)) {   
     fnMapC <- function(`*params`,...) {
             ## run mapping function
-            mappedPop <- t(apply(X = `*params`, MARGIN = 1, FUN = fnMap, ...))
+            mappedPop <- t(apply(X = `*params`, MARGIN = 1, FUN = fnMap))
             if(all(dim(mappedPop) != dim(`*params`)))  ## check results
                 stop("mapping function did not return an object with ",
                      "dim NP x length(upper).")