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