Nothing
if (file.exists("_options.R")) source("_options.R")
library(panelPomp,quietly=TRUE)
old_o <- options(digits=3)
png(file.path(tempdir(),"plot-%02d.png"),res=100)
ppo <- panelPomp:::panelRandomWalk(N=5,U=2)
plot(ppo)
dev.off()
options(old_o)
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.