Nothing
bpk <- function(X, bandwidths, a = 1.0, kernel = dnorm, ...)
apply(X, 1, function(u, v, b) mean(kernel((u%*%v)/b) / b),
v = bandwidths$alphas, b = a*bandwidths$lambdas)
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.