[Rd] ggplot2/plyr interaction with latest R-devel?

Prof Brian Ripley ripley at stats.ox.ac.uk
Tue Sep 2 14:21:30 CEST 2014


On 02/09/2014 12:43, peter dalgaard wrote:
> Impressive. Never ceases to amaze me what computers can do these days. ;-)
>
> It's even more impressive given that we have
>
> static double logbase(double x, double base)
> {
> #ifdef HAVE_LOG10
>      if(base == 10) return x > 0 ? log10(x) : x < 0 ? R_NaN : R_NegInf;
> #endif
> #ifdef HAVE_LOG2
>      if(base == 2) return x > 0 ? log2(x) : x < 0 ? R_NaN : R_NegInf;
> #endif
>      return R_log(x) / R_log(base);
> }
>
> which, except possibly for base-10 and base-2, would seem to be quite hard to convince to return anything other than 1 if x == base....

I suspect PD knows (or has known) why, but for the sake of those who are 
not much bitten by ix86 compilers ....

It's the curse of extended-precision arithmetic (and not enough 
registers).  It does

compute in an FPU register, then store z1 = R_log(x)
compute z2 = R_log(base) in the FPU
load z1 to an FPU register.
compute z1/z2

(at least at -O2 with the version of gcc whose assembler output I looked 
at).  So z1 is has a 64-bit mantissa and z2 a 53-bit one.

x86_64 has more registers, and so avoids the store.  This can be 
circumvented on i686 by compiling with -msse2, which for some reason 
Linux distros do not make the default.

floor(log2(x)/3) is more reliable (and this is the underlying reason why 
we have log10 and log2).

>
> -pd
>
>
> On 02 Sep 2014, at 03:27 , Ben Bolker <bbolker at gmail.com> wrote:
>
>> log(8, base=8L)-1
>> log(8, base=8)-1
>> logvals <- setNames(log(2:25,base=2:25)-1,2:25)
>> logvals[logvals!=0]  ## 5,8,14,18,19,25 all == .Machine$double.eps/2
>


-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Emeritus Professor of Applied Statistics, University of Oxford
1 South Parks Road, Oxford OX1 3TG, UK



More information about the R-devel mailing list