Nothing
computePDC <- function(beta,kappa){
if (ncol(beta) == nrow(beta)+1){
beta <- beta[,-1,drop=FALSE]
}
sigma <- solve(kappa)
t(beta / sqrt(diag(sigma) %o% diag(kappa) + beta^2))
}
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.