predict.KERE <- function(object, kern, x, newx,...) {
nfit <- kernelMult(kern, newx, x, object$alpha[-1,])
nfit <- sweep(nfit, MARGIN = 2, object$alpha[1,], "+")
nfit
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.