R/checkpd.R

"checkpd" <-
function(sigma, tol = 1e-06){
 eS <- eigen(sigma, symmetric = TRUE)
 ev <- eS$values
 if (all(ev >= -tol * abs(ev[1]))) answer <- TRUE else answer <- FALSE
 return(answer)
}

Try the hapsim package in your browser

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

hapsim documentation built on May 1, 2019, 9:11 p.m.