Nothing
library(adegraphics)
pdf("s1d.match.pdf")
g1 <- s1d.match(-5:5, 2 * (-5:5))
g2 <- s1d.match(rnorm(10), runif(10), p1d.hor = FALSE)
g3 <- s1d.match(1:5, 7:11, p1d.hor = F, p1d.rev = T)
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.