R/solver.r

In Beothuk/bio.utilities: Package that interacts with bio providing base-level generic routines to make your life easier.

#' @title solver
#' @description unknown
#' @family abysmally documented
#' @author  unknown, \email{<unknown>@@dfo-mpo.gc.ca}
#' @export
solver = function(pars,fn,hess=TRUE,...)
{
  fit = optim(pars,fn,hessian=hess,...)
  if(hess){
    fit$VarCov = solve(fit$hessian)             #Variance-Covariance
    fit$SDs = sqrt(diag(fit$V))                 #Standard deviations
    fit$Correlations = fit$V/(fit$S %o% fit$S)  #Parameter correlation
  }            
  return(fit)
}