Nothing
"phi.range" <-
function(mat){
cmat<-cor(mat)+diag(NA,ncol(mat))
ma<-max(cmat,na.rm=TRUE)
mi<-min(cmat,na.rm=TRUE)
RET <- ma-mi
RET
}
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.