#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.