https://github.com/cran/mvtBinaryEP
Raw File
Tip revision: bd876c4c9cc813f7c7b610832fa2793c250504d0 authored by Kunthel By on 25 January 2011, 00:00 UTC
version 1.0.1
Tip revision: bd876c4
isPosDef.R
`isPosDef` <-
function(M, sym)
{
  if (!missing(sym)) { e <- eigen(M, symmetric=sym, only.values=T) }
  else { e <- eigen(M, only.values=T) }
  return( min(e[[1]]) > 0 )
}

back to top