Nothing
`ojaGradient.hyperplane` <-
function(d, x){
return(rep(sign(round(d%*%c(x,1),digits=8)),length(x))*d[seq_along(x)])
}
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.