R/convergence.r

In sigInt: Estimate the Parameters of a Discrete Crisis-Bargaining Game

convergenceCriterion <- function(method)
{
  switch(tolower(method),
         `newton-raphson` = c(1L, 2L),
         nr = c(1L, 2L),
         bfgs = 0L,
         bfgsr = c(1L, 2L),
         `bfgs-r` = c(1L, 2L),
         bhhh = c(1L, 2L),
         `nelder-mead` = 0L,
         nm = 0L,
         sann = 0L)
}