Nothing
"sJaccard" <-
function(M1,M2) {
res <- sum(M1*M2) / (sum(M1*M1) + sum(M2*M2) - sum(M1*M2));
return(res);
}
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.