Nothing
image.mvkde <- function(x, ...)
{
if(x$d != 2)
stop("image.mvkde can only be used with 2 dimensional data")
z <- list(x = x$axes[, 1], y = x$axes[, 2], z = x$z)
if("col" %in% names(list(...)))
image.default(z, ...)
else
image.default(z, col = gray((8:0)/8), ...)
invisible()
}
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.