Nothing
pstart <-
function(xscale=30, expand=1.2)
{
if(missing(xscale)) xscale=30
if(missing(expand)) expand=1.2
## print(paste(sep=" ", "xscale=", xscale))
plot(c(-expand*xscale, expand*xscale), c(-expand*xscale, expand*xscale), type='n' , axes=FALSE, ann=FALSE, asp=1)
}
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.