Nothing
PScatter <- function(x, y, PApp = NULL)
{
if(length(x) != length(y)) stop("length of 'x' and 'y' do not match.")
x <- as.integer(x)
y <- as.integer(y)
if(is.null(PApp)) PApp <- PApplet("PScatter")
PSet(PApp,"setXY", x, y)
PResize(PApp, max(x), max(y))
invisible(PApp)
}
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.