Nothing
image.discretize.kernel <- function(x, center = c(0, 0), ...)
{
if(length(dim(x$z)) != 2)
stop("plot can only be used with 2 dimensional data")
M <- dim(x$axes)[1]
idx <- c((M/2+1):M, 1:(M/2))
z <- x$z[idx, idx]
y <- x$axes[idx, 2]
x <- x$axes[idx, 1]
zx <- rowSums(z)
zy <- colSums(z)
x.idx <- abs(x) < 1.5*max(x[zx > 0])
y.idx <- abs(y) < 1.5*max(y[zy > 0])
x <- x[x.idx] + center[1]
y <- y[y.idx] + center[2]
z <- z[x.idx, y.idx]
if("col" %in% names(list(...)))
image.default(x, y, z, ...)
else
image.default(x, y, 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.