Nothing
kernel.grad.mult <-
function(index.0, H.inv, X, X.fit, K){
return(t(K[index.0,] * t(-H.inv %*% (t(X.fit) - X[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.