Nothing
score <-
structure(function (data)
{
s = sum(as.matrix(data))
return(s)
}, source = c("function(data)", "{", "#Function to determine the score measure that will be used to determine",
"#candidates for outliers", "#data: vector containing distances to k nearest neighbors.",
"", "#s=median(as.matrix(data))", "s=sum(as.matrix(data))", "return (s)",
"}"))
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.