Nothing
plot.metropolis <-
function(x,plot.type='carlin',pos=1:x$iter,...)
switch(plot.type,ts=plot.ts(x$sims,...),pairs=pairs(x$sims[pos,],...),hist=hist(x,...),
post.pred=Plot.post.pred(x,...),carlin=Carlin(x))
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.