The R Project SVN R

Rev

Rev 3076 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3076 Rev 4562
Line 49... Line 49...
49 
 
 49 
 
50 
 if [ -n "`grep 'par(' $file`" ];then
 50 
 if [ -n "`grep 'par(' $file`" ];then
51 
    ## if there were 'par(..)' calls, now reset them:
 51 
    ## if there were 'par(..)' calls, now reset them:
52 
    echo 'par(.par.postscript)'
 52 
    echo 'par(.par.postscript)'
53 
 fi
 53 
 fi
- 
 
 54 
 if [ -n "`grep 'options(contrasts' $file`" ];then
- 
 
 55 
    ## if contrasts were set, now reset them:
- 
 
 56 
    echo 'options(contrasts = c(unordered = "contr.treatment", ordered =  "contr.poly"))'
- 
 
 57 
 fi
54 
done
 58 
done
55 
## 3) ---- Footer ----
 59 
## 3) ---- Footer ----
56 
cat <<_EOF_
 60 
cat <<_EOF_
57 
cat("Time elapsed: ", proc.time() - .ptime,"\n")
 61 
cat("Time elapsed: ", proc.time() - .ptime,"\n")
58 
dev.off(); quit('no')
 62 
dev.off(); quit('no')