The R Project SVN R

Rev

Rev 23008 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 23008 Rev 23009
Line 1... Line 1...
1 
#### Run all demos for which we do not wish to diff the output
 1 
#### Run all demos for which we do not wish to diff the output
2 
.ptime <- proc.time()
 2 
.ptime <- proc.time()
3 
.Random.seed <- c(0,rep(7654, 3))
 3 
.Random.seed <- c(0,rep(7654, 3))
4 
 
 4 
 
5 
demos <- c("Hershey", "Japanese", "nlm", "plotmath")
 5 
demos <- c("Hershey", "Japanese", "lm.glm", "nlm", "plotmath")
6 
 
 6 
 
7 
for(nam in  demos) demo(nam, character.only = TRUE)
 7 
for(nam in  demos) demo(nam, character.only = TRUE)
8 
 
 8 
 
9 
cat("Time elapsed: ", proc.time() - .ptime, "\n")
 9 
cat("Time elapsed: ", proc.time() - .ptime, "\n")