remove.all.par<-function(){
options(warn=-1)
rm(list=c("loci","I","n","en","m","em","ej","conds","tree","npops"), envir=.e)
options(warn=0)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.