Skip to content

another ts problem

3 messages · Paul Gilbert, Peter Dalgaard

Original
Paul Gilbert
# 
My previous ts problem is fixed in today's snapshot but ...

R : Copyright 1999, The R Development Core Team
Version 0.64.0 Patched (unreleased snapshot) (April 29, 1999)
...
Error: invalid time series parameters specified
Paul Gilbert

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
Peter Dalgaard
# 
Paul Gilbert <pgilbert@bank-banque-canada.ca> writes:
Pah! Exact same error, but in do_relop (relop.c)... Will fix.
Peter Dalgaard
# 
..and the patch is this:

diff -c -r1.8.2.1 relop.c
*** /tmp/T0a005Bn       Fri Apr 30 08:03:10 1999
--- relop.c     Fri Apr 30 08:03:10 1999
***************
*** 136,146 ****
      }
  
      PROTECT(x);
-     if (xts || yts) {
-       setAttrib(x, R_TspSymbol, tsp);
-       setAttrib(x, R_ClassSymbol, class);
-       UNPROTECT(2);
-     }
      if (dims != R_NilValue) {
        setAttrib(x, R_DimSymbol, dims);
        if (xnames != R_NilValue)
--- 136,141 ----
***************
*** 154,159 ****
--- 149,159 ----
        else if (length(x) == length(ynames))
            setAttrib(x, R_NamesSymbol, ynames);
      }
+     if (xts || yts) {
+       setAttrib(x, R_TspSymbol, tsp);
+       setAttrib(x, R_ClassSymbol, class);
+       UNPROTECT(2);
+     }
  
      UNPROTECT(4);
      return x;