From ripley@stats.ox.ac.uk  Thu Dec 16 13:48:31 1999
From: ripley@stats.ox.ac.uk (ripley@stats.ox.ac.uk)
Date: Thu, 16 Dec 1999 14:48:31 +0100 (MET)
Subject: aggregate.ts (PR#376)
Message-ID: <199912161348.OAA19681@pubhealth.ku.dk>

> From: plummer@iarc.fr
> Date: Thu, 16 Dec 1999 14:15:51 +0100 (MET)
> To: r-devel@stat.math.ethz.ch
> Subject: aggregate.ts (PR#376)
> CC: R-bugs@biostat.ku.dk
> X-Loop: R-bugs@biostat.ku.dk
> 
> I'm having some problems with aggregate.ts, e.g.
> 
> R> x <- ts(1:20)
> R> frequency(x)
> [1] 1
> 
> R> aggregate(x, nfreq=1/3)
> Error in aggregate.ts(x, nfreq = 1/3) : cannot change frequency from 1 to
> 0.333333333333333
> 
> In fact aggregate.ts only accepts a new frequency that is a negative
> power of two in this example. 
> 
> The problem with the current test for compatible frequencies
> 
>     if ((ofrequency%%nfrequency) != 0)
>         stop(paste("cannot change frequency from", ofrequency,
>             "to", nfrequency))
> 
> is that numerical errors may cause it to fail.  I suggest
> 
>      if (abs(ofrequency%%nfrequency) < ts.eps)

It's been like that since January, and is OK on my machine. This is yet
another example in which the Linux run-time libraries are not
taking account that extended precision calculations are probably
inappropriate:
Browse[1]> ofrequency%%nfrequency
[1] 5.551115e-17
is half or one quarter the machine precision (depending on how you define it).
(We fixed 10 or so such examples a few releases ago where Linux was
differing from Solaris and also from Windows.)

I'll put in the test you suggest (with > not < !)  Should we be fixing
%%, that is if  y%%x is less than 5*machine precision times abs(x),
returning zero?  (I see S-PLUS does not.)

-- 
Brian D. Ripley,                  ripley@stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272860 (secr)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595


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


aggregate.ts (PR#376)
ripley@stats.ox.ac.uk