R/ispositivedefinite.R

Defines functions is.positive.definite

is.positive.definite <- function(A){
  
  eigs <- eigen(A, symmetric=TRUE, only.values=TRUE)$values
  
  if(any(eigs <= 0)){
    return(FALSE)
  }else{
    return(TRUE)
  }
}

Try the sdpt3r package in your browser

Any scripts or data that you put into this service are public.

sdpt3r documentation built on May 2, 2019, 4:19 a.m.