| Line 213... |
Line 213... |
| 213 |
if(interAct) dev.set(dev.next())
|
213 |
if(interAct) dev.set(dev.next())
|
| 214 |
## a version of those above, with 'row1attop = FALSE'
|
214 |
## a version of those above, with 'row1attop = FALSE'
|
| 215 |
mpairs(horInd=2:1,verInd=3:1 , row1attop=FALSE) # 3x2: *swapped* upper left
|
215 |
mpairs(horInd=2:1,verInd=3:1 , row1attop=FALSE) # 3x2: *swapped* upper left
|
| 216 |
mpairs(horInd=c(3,1) , row1attop=FALSE) # 2x3: swapped outer rows
|
216 |
mpairs(horInd=c(3,1) , row1attop=FALSE) # 2x3: swapped outer rows
|
| 217 |
mpairs( verInd=c(3,2), row1attop=FALSE) # 3x2: cols 3,2
|
217 |
mpairs( verInd=c(3,2), row1attop=FALSE) # 3x2: cols 3,2
|
| - |
|
218 |
|
| - |
|
219 |
|
| - |
|
220 |
## axis() when in subnormal range (x is subnormal if 0 < x < .Machine$double.xmin):
|
| - |
|
221 |
(.min.exp.subnormal <- with(.Machine, double.min.exp + double.ulp.digits)) # -1074
|
| - |
|
222 |
(ry <- range(y74 <- 2^(.min.exp.subnormal + 0:50))) # all subnormal
|
| - |
|
223 |
plotNchk <- function(y) {
|
| - |
|
224 |
plot(y, log = "y", xlab="", ylab="", xaxt="n") # (as small pdf as possible)
|
| - |
|
225 |
ry <- range(y)
|
| - |
|
226 |
xp <- par("yaxp")
|
| - |
|
227 |
## and indeed yaxp do cover the range(y) :
|
| - |
|
228 |
stopifnot(xp[1] <= ry[1], ry[2] <= xp[2], xp[3] == 1)
|
| - |
|
229 |
invisible(xp)
|
| - |
|
230 |
}
|
| - |
|
231 |
if(interactive()) # not regularly, where pdf is stored
|
| - |
|
232 |
plotNchk(y74) # gives 3 warnings; 1. from pretty(): "very small range"
|
| - |
|
233 |
plotNchk(y74[1:8]) # 3 warnings *and* no error anymore
|
| - |
|
234 |
plotNchk(y74[1:2]) # (ditto)
|
The R Project SVN
R