Content - 8f94c7eedab72faf0991accdfc5b23b4f66d8d65

`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 )
}