#### Run all demos for which we do not wish to diff the output
.ptime <- proc.time()
set.seed(123)
demos <- c("Hershey", "Japanese", "lm.glm", "nlm", "plotmath")
for(nam in demos) demo(nam, character.only = TRUE)
cat("Time elapsed: ", proc.time() - .ptime, "\n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.