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