Nothing
mulDELTA <-
function(vector,index){
tapply(vector[index>0], factor(index[index>0]), function(vector,ctrl){mean(vector)-mean(ctrl)},vector[index==0])
}
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.