kernel.func <- function(X.0, X.i, H.inv){ d <- X.0 - X.i return(c(exp(-0.5 * (t(d) %*% H.inv %*% d)))) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.