R/optimset.R

Defines functions optimset

Documented in optimset

# Copyright (C) 2008-2009 - INRIA - Michael Baudin
# Copyright (C) 2009-2010 - DIGITEO - Michael Baudin
# Copyright (C) 2010-2022  - Sebastien Bihorel
#
# This file must be used under the terms of the CeCILL.
# This source file is licensed as described in the file COPYING, which
# you should have received as part of this distribution. The terms
# are also available at
# http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
#
# This source code is a R port of the neldermead component
# originally written by Michael Baudin for Scilab :
# "Nelder-Mead User's Manual", 2010, Consortium Scilab - Digiteo,
# Michael Baudin, http://wiki.scilab.org/The_Nelder-Mead_Component

optimset <- function(method=NULL,...){
  
  if (!is.null(method)){
    options <- optimset.method(method=method)
    return(options)
  }
  
  options <- list(Display=NULL,
    FunValCheck=NULL,
    MaxFunEvals=NULL,
    MaxIter=NULL,
    OutputFcn=NULL,
    PlotFcns=NULL,
    TolFun=NULL,
    TolX=NULL,
    nbMatch=NULL,
    boundsAlpha=NULL,
    boxScaling=NULL,
    alphaMin=NULL)
  
  dots <- list(...)
  
  if (length(dots)>0){
    for (key in names(dots)){
      options[[key]] <- dots[[key]]
    }
  }
  
  return(options)
  
}

Try the neldermead package in your browser

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

neldermead documentation built on March 18, 2022, 7:58 p.m.