Cannot obtain the desired output of a function

Question

Good morning,

Under R, I developed the following code :

Initial_search_domain_function_pdim <- function(N, p, MIN, MAX, Objfun) { 
  
  c=length(MIN)