Nothing
d<-geyser$duration
cat("Data are: d=(duration of geyser eruption)\n")
cat("Marginal density of d(t) first, followed by\n")
cat("estimated density of (d(t-k),d(t)), for k=1,2\n")
a<-sm.ts.pdf(d,lags=c(1,2))
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.