Nothing
plot.discretize.kernel <- function(x, y, ...)
{
contour.discretize.kernel(x, ...)
if(!is.null(var.names <- colnames(x$axes))) {
dot.names <- names(list(...))
if(!("xlab" %in% dot.names))
mtext(var.names[1], side = 1, line = par("mgp")[1])
if(!("ylab" %in% dot.names))
mtext(var.names[2], side = 2, line = par("mgp")[1])
}
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.