Nothing
rgl.lines3d <- function (x, y, z, add = FALSE, ...)
{
n <- length(x)
if (n != length(y) || n != length(z))
stop("Lengths of x, y, z do not match")
if (!add)
rgl.clear()
off <- c(1, 1)
x <- kronecker(x, off)[-c(1, 2 * n)]
y <- kronecker(y, off)[-c(1, 2 * n)]
z <- kronecker(z, off)[-c(1, 2 * n)]
rgl.lines(x,y,z,...)
}
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.