R devel - Sep 2000 - pretty not covering the range properly (PR#673)

When I issue the command:

if ( c(2.8,3)[1] < pretty (c(2.8,3))[1]) print ("problem")

the result is "problem" prints.
I have traced it to bits and the 2.8 of the returned vector from pretty is
slightly larger.
This seems to be due to the conversion to base 10 with the ns and unit variables
in src/appl/pretty.c.

Anyway if I do something like:
hist(c(2.8,3))
it fails as well because it uses pretty.

Thanks for you attention,
DavidMcLaughlin@byu.edu




--please do not edit the information below--

Version:
 platform = i686-pc-linux-gnu
 arch = i686
 os = linux-gnu
 system = i686, linux-gnu
 status = Patched
 major = 1
 minor = 1.1
 year = 2000
 month = August
 day = 23
 language = R

Search Path:
 .GlobalEnv, Autoloads, package:base

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

>>>>> "david" == david 
<david@orion-10.cs.byu.edu> writes:
    david> When I issue the command: if ( c(2.8,3)[1] < pretty
    david> (c(2.8,3))[1]) print ("problem")

    david> the result is "problem" prints.  I have traced it to
bits and
    david> the 2.8 of the returned vector from pretty is slightly larger.
    david> This seems to be due to the conversion to base 10 with the ns
    david> and unit variables in src/appl/pretty.c.

    david> Anyway if I do something like: hist(c(2.8,3)) it fails as well
    david> because it uses pretty.

    david> Thanks for you attention, DavidMcLaughlin@byu.edu

Thank you for the bug report.
This bug is ``new'' (a bit more than a year!) and was introduced when
someone fixed another problem in pretty.c 
by adding "1e-5" fuzz a bit too generously
hmm,....... 
I'll have a look.

    david> Version: .... R 1.1.1 ...


Martin Maechler <maechler@stat.math.ethz.ch>
http://stat.ethz.ch/~maechler/
Seminar fuer Statistik, ETH-Zentrum  LEO D10	Leonhardstr. 27
ETH (Federal Inst. Technology)	8092 Zurich	SWITZERLAND
phone: x-41-1-632-3408		fax: ...-1228			<><

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

>>>>> "PD" == Peter Dalgaard BSA
<p.dalgaard@biostat.ku.dk> writes:
    PD> maechler@stat.math.ethz.ch writes:

      MM> Ok, I've fixed pretty() for the development version such that 
      MM>    p <- pretty(x)
      MM>    all(p[1] <= x & x <= p[length(p)])
      MM> should be guaranteed (again).

    PD> Gulp. I'm pretty(!) sure there was a reason for changing it in
the
    PD> other direction...
yes, the change last year (between 0.64 and 0.65) *was* for a good reason,
and I have not reverted that!
    PD> [I have a vague recollection of
    PD> pretty(pretty(x)) != pretty(x) or something like that]

    PD> Are we quite sure that it is not the caller that needs to be a
    PD> little more lenient in the bounds checking?

I've thought of that, too.
But no, I think we want to guarantuee the above 
    {which I had wrong in the last e-mail, it's "[length(p)]" !}
which we have had always in the documentation and which *is* S compatible.

    PD> OTOH, it's in code you wrote yourself...



-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._