acceptance.rate<-function(mcmc.chain) sum(mcmc.chain[2:length(mcmc.chain)]!=mcmc.chain[1:(length(mcmc.chain)-1)])/length(mcmc.chain)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.