Nothing
kernel.grad <-
function(X.0, X.i, H.inv){
return(kernel.func(X.0, X.i, H.inv) * (-H.inv %*% (X.0 - X.i)))
}
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.