From stahel@stat.math.ethz.ch  Thu Oct 18 16:49:13 2001
From: stahel@stat.math.ethz.ch (stahel@stat.math.ethz.ch)
Date: Thu, 18 Oct 2001 17:49:13 +0200 (MET DST)
Subject: [Rd] seq (PR#1133)
Message-ID: <200110181549.RAA15337@pubhealth.ku.dk>

In the following special case, seq fails to give the right answer
(which is  0 )

> seq(0,0,1)
Error in if (dd < sqrt(.Machine$double.eps)) return(from) : 
	missing value where logical needed

For any other equal  from  and  to , it works:

> seq(1,1,1)
[1] 1

The error occurs in the statement

            dd <- abs(del)/max(abs(to), abs(from))

of  seq.default  -- for obvious reasons. 
This is certainly easy to debug...

Thank you for your efforts.

Werner Stahel

----------------- This message was sent by ---------------------------
Werner Stahel                              http://stat.ethz.ch/~stahel
Seminar fuer Statistik                     phone  :    +41 1 632 34 30
ETH-Zentrum, LEO D8                        fax    :    +41 1 632 12 28
CH-8092 Zurich, Switzerland                meet me: Leonhardstr.27, D8
----------------------------------------------------------------------



--please do not edit the information below--

Version:
 platform = i686-pc-linux-gnu
 arch = i686
 os = linux-gnu
 system = i686, linux-gnu
 status = 
 major = 1
 minor = 3.1
 year = 2001
 month = 08
 day = 31
 language = R

Search Path:
 .GlobalEnv, package:ctest, package:SfS, 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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

[Rd] seq (PR#1133)
stahel@stat.math.ethz.ch