Nothing
"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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.