#### 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")