The R Project SVN R

Rev

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

Rev 4605 Rev 5138
Line 7... Line 7...
7 
cat(file=file, append=T, '.ptime <- proc.time()\n')
 7 
cat(file=file, append=T, '.ptime <- proc.time()\n')
8 
cat(file=file, append=T,
 8 
cat(file=file, append=T,
9 
    paste('postscript("', PKG, '-Examples.ps")\n', sep=""))
 9 
    paste('postscript("', PKG, '-Examples.ps")\n', sep=""))
10 
cat(file=file, append=T, '.par.postscript <- par(no.readonly = TRUE)\n')
 10 
cat(file=file, append=T, '.par.postscript <- par(no.readonly = TRUE)\n')
11 
cat(file=file, append=T, 'options(contrasts = c(unordered = "contr.treatment", ordered =  "contr.poly"))\n')
 11 
cat(file=file, append=T, 'options(contrasts = c(unordered = "contr.treatment", ordered =  "contr.poly"))\n')
- 
 
 12 
cat(file=file, append=T, 'options(pager="console")\n')
12 
if(PKG != "base")
 13 
if(PKG != "base")
13 
    cat(file=file, append=T, paste('library(', PKG, ')', "\n"), sep="")
 14 
    cat(file=file, append=T, paste('library(', PKG, ')', "\n"), sep="")
14 
for(f in list.of.files) {
 15 
for(f in list.of.files) {
15 
    cat(file=file, append=T, '.Random.seed <- c(0,rep(7654,3)); rm(list = ls())\n')
 16 
    cat(file=file, append=T, '.Random.seed <- c(0,rep(7654,3)); rm(list = ls())\n')
16 
    file.append(file, file.path(exloc, f))
 17 
    file.append(file, file.path(exloc, f))