Nothing
fMBD <-
function(data){
p=dim(data)[1]
n=dim(data)[2]
rmat=apply(data,1,rank)
down=rmat-1
up=n-rmat
(rowSums(up*down)/p+n-1)/combinat(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.