https://github.com/cran/mvtBinaryEP
Raw File
Tip revision: e03023db232593f436717e7be27d1c52d9865644 authored by Kunthel By on 18 February 2009, 00:00:00 UTC
version 1.0
Tip revision: e03023d
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