mlt (version 1.7-0)

mltoptim: Control Optimisation

Description

Define optimisers and their control parameters

Usage

mltoptim(
   auglag = list(
        kkt2.check = hessian,         ### turn off/on numerical hessian
               eps = abstol,          ### absolute tolerance for _parameter_ updates 
             itmax = 1000L,           ### max number of outer iterations
            method = "BFGS",          ### inner algorithm
             maxit = 500L             ### max number of inner (BFGS) iterations
        ), 
    spg = list(
              ftol = abstol,          ### absolute tolerance for _neg. logLik_
             quiet = TRUE,            ### don't talk
         checkGrad = FALSE            ### don't check analytical gradient
    ),
    nloptr = list(
         algorithm = "NLOPT_LD_MMA",  ### inner algorithm 
          ftol_rel = reltol,          ### relative change for _neg. logLik_
          ftol_abs = abstol,          ### absolute tolerance for _neg. logLik_
           maxeval = 1000L            ### max number of evaluations
    ),
    constrOptim = list(
            method = "BFGS",          ### inner algorithm       
             maxit = 1000L,           ### max number of inner (BFGS) iterations 
  outer.iterations = 500L,            ### max number of outer iterations
         outer.eps = reltol          ### relative change for _neg. logLik_          
    ),        
    optim = list(
  checkconstraints = TRUE,            ### return -Inf if violated
            method = "BFGS",          ### inner algorithm       
             maxit = 1000L,           ### max number of inner (BFGS) iterations 
            reltol = reltol          ### relative change for _neg. logLik_          
    ),        
    nlminb = list(
  checkconstraints = TRUE,            ### return -Inf if violated
          iter.max = 1000L,           ### max number of iterations 
          eval.max = 1500L,           ### max number of function evaluations
           rel.tol = reltol,          ### relative change for _neg. logLik_
           abs.tol = 0.0,             ### absolute tolerance (nll is not >= 0) 
            xf.tol = 1e-10
    ),  
  abstol = 1e-07, 
  reltol = 1e-6, 
   trace = FALSE, 
 hessian = FALSE)

Value

A list of functions with arguments theta (starting values), f (log-likelihood),

g (scores), h (Hessian), ui and ci (linear inequality constraints). Adding further such functions is a way to add more optimisers to mlt. The first one in this list converging defines the resulting model.

All procedures except optim and nlminb perform constained optimisation. The model is only defined for parameters meeting the constraints. For parameter configurations not meeting the constraints, the resulting log-likelihood is -Inf. This, however, does not mean that unconstraint optimisation will always produce parameter estimates which lead to valid models, so one should always check the unconstrained (but probably faster obtained) result against the (slower) constrained solution.

Arguments

auglag

A list with control parameters for the auglag optimiser. maxtry is the number of times the algorithm is re-started in case it failed.

spg

A list with control parameters for the BBoptim optimiser (calling spg internally).

nloptr

A list with control parameters for the nloptr family of optimisers.

constrOptim

A list with control parameters for the constrOptim optimiser.

optim

A list with control parameters for the optim optimiser producing an unconstrained fit.

nlminb

A list with control parameters for the nlminb optimiser producing an unconstrained fit.

abstol,reltol

Absolute and relative tolerances used as stopping criterion by various algorithms.

trace

A logical switching trace reports by the optimisers off.

hessian

A logical indicating if a numerically differentiated Hessian matrix be returned.

Details

This function sets-up functions to be called in mlt internally.

Examples

  ### set-up linear transformation model for conditional
  ### distribution of dist given speed
  dist <- numeric_var("dist", support = c(2.0, 100), bounds = c(0, Inf))
  ctmm <- ctm(response = Bernstein_basis(dist, order = 4, ui = "increasing"),
              shifting = ~ speed, data = cars)

  ### the numerically determined
  ### hessian is returned as "optim_hessian" slot
  op <- mltoptim(hessian = TRUE)
  mltm <- mlt(ctmm, data = cars, scale = FALSE, optim = op)

  ### compare analytical and numerical hessian
  all.equal(c(Hessian(mltm)), c(mltm$optim_hessian), tol = 1e-4)