Nothing
ADJ <-function(X){
J <- colnames(X)
K <- ncol(X)
n <- nrow(X)
ADJ.mat <- matrix(0,nrow=K,ncol=K)
ADJ.mat <- t(as.matrix(X)) %*% as.matrix(X) / n
ADJ.mat[!lower.tri(ADJ.mat)] <- NA
dimnames(ADJ.mat) <- list(J,J)
return(ADJ.mat)
}
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.