R/others__is.positivedefinite.R

Defines functions is.positivedefinite

#' @export
is.positivedefinite <- function(X)
    {
        eig <- eigen(X, only.values = TRUE)$values
        out <- ifelse(all(eig>0), TRUE, FALSE)
        return(out)
    }
feng-li/flutils documentation built on Oct. 1, 2020, 9:09 p.m.