##' @export
is.positivedefinite <- function(X)
{
eig <- eigen(X, only.values = TRUE)$values
out <- ifelse(all(eig>0), TRUE, FALSE)
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.