R/optim_fobj.R

In jaegea/MEIGOR: MEIGOR - MEtaheuristics for bIoinformatics Global Optimization

Defines functions optim_fobj

Documented in optim_fobj

optim_fobj <-
function(x){
  #Trick to avoid passing lists to nls
  extra_args[[1]]<-x
  f<-do.call(fobj_global, extra_args);
  n_fun_eval <<- n_fun_eval + 1;  
	return(f[1])
}