Nothing
kde2dQuantile <- function(d, X, Y, probs = .05, ...) {
xInd <- sapply(X, function(x) whichClosest(d$x, x))
yInd <- sapply(Y, function(x) whichClosest(d$y, x))
zValues <- d$z[cbind(xInd, yInd)]
quantile(zValues, probs=probs, ...)
}
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.