R/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)
    }
thiyangt/fformpp documentation built on Jan. 5, 2024, 5:44 a.m.