Nothing
###function that calculates the average ADJUSTED squared correlations of each row
###of the correlation matrix EXCLUDING the diagonal
cor2mean.adj <- function(mat){
n <- dim(mat)[2]
p <- dim(mat)[1]
without.diag <- p/(p-1)*cor2mean(mat)-1/(p-1)
return((n-1)/(n-2)*without.diag-1/(n-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.