R/f_conveneince_setoptimizer.R

Defines functions setoptimizer

Documented in setoptimizer

setoptimizer <- function(x, optimizer = c("default","nlminb","ucminf","cpp_L-BFGS-B","cpp_BFGS","cpp_CG","cpp_SANN","cpp_Nelder-Mead"),
                         optim.args){
  optimizer <- match.arg(optimizer)
  if (optimizer == "default"){
    optimizer <- defaultoptimizer(x)
  }
  x@optimizer <- optimizer
  
  if (!missing(optim.args)){
    x@optim.args <- optim.args
  }
  
  if (!is.null(x@baseline_saturated$baseline)){
    x@baseline_saturated$baseline@optimizer <- optimizer
    if (!missing(optim.args)){
      x@baseline_saturated$baseline@optim.args <- optim.args
    }
    
  }
  if (!is.null(x@baseline_saturated$saturated)){
    x@baseline_saturated$saturated@optimizer <- optimizer
    
    if (!missing(optim.args)){
      x@baseline_saturated$saturated@optim.args <- optim.args
    }
  }
  
  x
}

Try the psychonetrics package in your browser

Any scripts or data that you put into this service are public.

psychonetrics documentation built on June 22, 2024, 10:29 a.m.