The R Project SVN R

Rev

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

Rev 43181 Rev 43202
Line 109... Line 109...
109 
stopifnot(identical(names(Opar)[ii],
 109 
stopifnot(identical(names(Opar)[ii],
110 
                    c("mai","pin","plt","usr","xaxp","yaxp")),
 110 
                    c("mai","pin","plt","usr","xaxp","yaxp")),
111 
          identical(Opar[-ii], Npar[-ii]))
 111 
          identical(Opar[-ii], Npar[-ii]))
112 
## did not correctly restore par("mar") up to (incl) R 2.4.0
 112 
## did not correctly restore par("mar") up to (incl) R 2.4.0
113 
 
 113 
 
114 
## plot.function() : use small n, axes=F  since we store and diff PS file !
 114 
## plot.function()     [n=11, ... : since we store and diff PS file !]
115 
plot(cos, xlim=c(-5,5), n=11, axes=FALSE)
 115 
plot(cos,       xlim=c(-5,5), n=11, axes=FALSE); abline(v=0)
116 
## did *not* plot for negative x up to R 2.5.1
 116 
## did *not* plot for negative x up to R 2.5.1
- 
 
 117 
plot(sin, -2,3, xlim=c(-5,5), n=11, axes=FALSE, xlab="")# plot from -2
- 
 
 118 
axis(1, at=c(-2,3), tcl=-1); axis(1, at=c(-5,5))
- 
 
 119 
## (from,to) & xlim  should work simultaneously
- 
 
 120 
 
117 
plot(cos, -7,7, n=11, axes=FALSE)
 121 
plot(cos, -7,7, n=11, axes=FALSE)
118 
## gave wrong ylab in R 2.6.0
 122 
## gave wrong ylab in R 2.6.0
119 
plot(cos, -7,7, ylab = "Cosine  cos(x)", n=11, axes=FALSE)
 123 
plot(cos, -7,7, ylab = "Cosine  cos(x)", n=11, axes=FALSE)
120 
## partial matching of 'ylab'; mapping  [0,1] (not [-7.7]):
 124 
## partial matching of 'ylab'; mapping  [0,1] (not [-7.7]):
121 
plot(gamma, yla = expression(Gamma(x)), n=11, yaxt="n")
 125 
plot(gamma, yla = expression(Gamma(x)), n=11, yaxt="n")
- 
 
 126