The R Project SVN R

Rev

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

Rev 59039 Rev 61153
Line 30... Line 30...
30 
x <- 1:5
 30 
x <- 1:5
31 
(r <- range(x))         # 1    5
 31 
(r <- range(x))         # 1    5
32 
extendrange(x)          # 0.8  5.2
 32 
extendrange(x)          # 0.8  5.2
33 
extendrange(x, f= 0.01) # 0.96 5.04
 33 
extendrange(x, f= 0.01) # 0.96 5.04
34 
## Use 'r' if you have it already:
 34 
## Use 'r' if you have it already:
35 
stopifnot(identical(extendrange(r=r),
 35 
stopifnot(identical(extendrange(r = r),
36 
                    extendrange(x)))
 36 
                    extendrange(x)))
37 
}
 37 
}
38 
\keyword{dplot}
 38 
\keyword{dplot}