The R Project SVN R

Rev

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

Rev 71128 Rev 71645
Line 7... Line 7...
7 
 
 7 
 
8 
options(warn = 1) # print as they occur
 8 
options(warn = 1) # print as they occur
9 
 
 9 
 
10 
plot(0) # this should remain constant
 10 
plot(0) # this should remain constant
11 
str(par(c("usr","xaxp","yaxp")))
 11 
str(par(c("usr","xaxp","yaxp")))
- 
 
 12 
stopifnot(all.equal(
- 
 
 13 
    par(c("usr","xaxp","yaxp"))
12 
 
 14 
   ,
- 
 
 15 
    list(usr = c(0.568, 1.432, -1.08, 1.08),
- 
 
 16 
         xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4))))
13 
 
 17 
 
14 
 
 18 
 
15 
### Test for centring of chars.  All the chars which are plotted should
 19 
### Test for centring of chars.  All the chars which are plotted should
16 
### be centred, and there should be no warnings about
 20 
### be centred, and there should be no warnings about
17 
### font metrics unknown for character `?'
 21 
### font metrics unknown for character `?'