Nothing
##
## INPUT:
## H: Hessian matrix
## fixed: logical indicator for which elements are fixed
##
## RETURN:
## logical for whether 'H' is negative definite
##
checkLocalID <- function(H, fixed)
{
H <- H[!fixed, !fixed]
## 'chol' returns an error for non-positive definite matrices
ans <- tryCatch(chol(-H), error = identity)
ans <- !inherits(ans, "error")
return(ans)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.