Nothing
corrmatrix = function(toptable,thrs=0){
intmatrix = tt2matrix(toptable,what="size")
intmatrix = intmatrix*(abs(intmatrix)>thrs)
cormatrix = cor(intmatrix,intmatrix,use = "pairwise.complete.obs")
diag(cormatrix) = NA
cormatrix
}
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.