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