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