# pretty() sometimes isn't

David Brahm brahm@alum.mit.edu
Fri, 14 Jun 2002 14:04:43 -0400

```Hi all,

R> seq(-.4, .8, length=7)
[1] -4.000000e-01 -2.000000e-01  5.551115e-17  2.000000e-01  4.000000e-01
[6]  6.000000e-01  8.000000e-01

Well that may not be a "bug", but it has this unfortunate consequence:

R> pretty(c(-.4,.8))
[1] -4.000000e-01 -2.000000e-01  5.551115e-17  2.000000e-01  4.000000e-01
[6]  6.000000e-01  8.000000e-01

And thus my plot axes look funny unless I apply zapsmall:
R> plot(c(-.4,.8), c(-.4,.8), axes=F)
R> axis(1, at=pretty(c(-.4,.8)))               # Yuck!
R> axis(2, at=zapsmall(pretty(c(-.4,.8))))     # Better!

So here's my simple suggestion: change the last line of pretty() from:
seq(z\$l, z\$u, length = z\$n + 1)
to:
zapsmall(seq(z\$l, z\$u, length = z\$n + 1))

I'm running R-1.5.0 on platform sparc-sun-solaris2.6.
--
-- David Brahm (brahm@alum.mit.edu)
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

```