R/maximMessage.R

In EBukin/maxLik-dev: Maximum Likelihood Estimation and Related Tools

maximMessage <- function(code) {
   message <- switch(code,
                     "1" = "gradient close to zero",
                     "2" = "successive function values within tolerance limit",
                     "3" = paste("Last step could not find a value above the",
                     "current.\nBoundary of parameter space?",
                     " \nConsider switching to a more robust optimisation method temporarily."),
                     "4" = "Iteration limit exceeded.",
                     "5" = "Infinite value",                        
                     "6" = "Infinite gradient",                        
                     "7" = "Infinite Hessian",
                     "8" = "Relative change of the function within relative tolerance",
                     "9" = paste("Gradient did not change,",
                     "cannot improve BFGS approximation for the Hessian.\n",
                     "Use different optimizer and/or analytic gradient."),
                     "100" = "Initial value out of range.",
                     paste("Code", code))
   return(message)
}