R/sirt_optimizer_hessian.R

Defines functions sirt_optimizer_hessian

## File Name: sirt_optimizer_hessian.R
## File Version: 0.04

sirt_optimizer_hessian <- function(res, fn, grad, h, ...)
{
    a1 <- list(...)
    arglist <- list(...)
    if (!is.null(grad)){
        fun <- grad
        hess_fun <- CDM::numerical_gradient
    } else {
        fun <- fn
        hess_fun <- CDM::numerical_Hessian
    }
    arglist <- sirt_remove_arguments_function(fun=fun, args=arglist)
    arglist$par <- res$par
    arglist$FUN <- fun
    arglist$h <- h
    res$hessian <- do.call(what=hess_fun, args=arglist)

    #--- output
    return(res)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.