## assign random sign to correlations
.random_sign<- function(x){
x * sample(c(-1,1), 1)
}
.add <- function(x) Reduce("+", x)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.