Cannot run the repeat loop in full : Error in D[, 1] : incorrect number of dimensions

Question

Good afternoon !

Under R , i developed the following script where the first function Initial_search_domain_function_pdim samples N