Nothing
predict.KERE <- function(object, kern, x, newx,...) {
nfit <- kernelMult(kern, newx, x, object$alpha[-1,])
nfit <- sweep(nfit, MARGIN = 2, object$alpha[1,], "+")
nfit
}
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.