From maechler at stat.math.ethz.ch  Mon Mar 19 15:15:20 2007
From: maechler at stat.math.ethz.ch (Martin Maechler)
Date: Mon, 19 Mar 2007 15:15:20 +0100
Subject: [Rd] eigen returns NAs from a real matrix
In-Reply-To: <Pine.LNX.4.64.0703191327460.27195@gannet.stats.ox.ac.uk>
References: <45FCCCC5.3060806@pdf.com>
	<Pine.LNX.4.64.0703180651080.24029@gannet.stats.ox.ac.uk>
	<17918.27271.48263.371325@stat.math.ethz.ch>
	<45FE89B3.5050505@stats.uwo.ca>
	<17918.35927.594199.926088@stat.math.ethz.ch>
	<Pine.LNX.4.64.0703191327460.27195@gannet.stats.ox.ac.uk>
Message-ID: <17918.39672.670678.897364@stat.math.ethz.ch>

>>>>> "BDR" == Prof Brian Ripley <ripley at stats.ox.ac.uk>
>>>>>     on Mon, 19 Mar 2007 13:37:15 +0000 (GMT) writes:

    BDR> On Mon, 19 Mar 2007, Martin Maechler wrote:
    >>>>>>> "Duncan" == Duncan Murdoch <murdoch at stats.uwo.ca>
    >>>>>>> on Mon, 19 Mar 2007 09:01:39 -0400 writes:
    >> 
    Duncan> On 3/19/2007 6:48 AM, Martin Maechler wrote:
    >> >>>>>>> "BDR" == Prof Brian Ripley <ripley at stats.ox.ac.uk>
    >> >>>>>>> on Sun, 18 Mar 2007 06:51:58 +0000 (GMT) writes:
    >> >>
    BDR> On Sat, 17 Mar 2007, Spencer Graves wrote:
    >> >> >> Hi, All:
    >> >> >> Attached please find a symmetric, indefinite matrix for which
    >> >> >> 'eigen(...)$vectors' included NAs:
    >> >> >>> load("eigenBug.Rdata")
    >> >> >>> sum(is.na(eigen(eigenBug)$vectors))
    >> >> >> [1] 5670
    >> >> >>> sessioninfo()
    >> >> >> Error: could not find function "sessioninfo"
    >> >> >>> sessionInfo()
    >> >> >> R version 2.4.1 (2006-12-18)
    >> >> >> i386-pc-mingw32
    >> >> >>
    >> >> >> locale:
    >> >> >> LC_COLLATE=English_United States.1252;LC_CTYPE=English_United
    >> >> >> States.1252;LC_MONETARY=English_United
    >> >> >> States.1252;LC_NUMERIC=C;LC_TIME=English_United States.1252
    >> >> >>
    >> >> >> attached base packages:
    >> >> >> [1] "stats"     "graphics"  "grDevices" "utils"     "datasets"  "methods" [7]
    >> >> >> "base"
    >> >> >> Using EISPACK does NOT return NAs: > sum(is.na(eigen(eigenBug,
    >> >> >> EISPACK=TRUE)$vectors))
    >> >> >> [1] 0
    >> >> >>
    >> >> >>
    >> >> >> I traced the problem to the following line in 'eigen':
    >> >> >> z <- if (!complex.x)
    >> >> >> .Call("La_rs", x, only.values, PACKAGE = "base")
    >> >> >>
    >> >> >>
    >> >> >> Comments?
    >> >>
    BDR> Nothing appeared as an attachment.
    >> >>
    >> >> it was a zip file which is not among the allowed ones
    >> >> (.tar.gz / *.tgz  would work).
    >> >>
    >> >> Spencer has also contacted me in private,
    >> >> so you now can use something like :
    >> >>
    >> >> F <- tempfile()
    >> >> download.file("ftp://stat.ethz.ch/U/maechler/R/eigenBug.Rdata", F)
    >> >> load(F)
    >> 
    Duncan> This is unrelated to Spencer's problem, but this
    Duncan> sequence failed for me.
    >> 
    Duncan> By default it will treat the file as a text file,
    Duncan> and convert EOL markers for Windows.  Adding
    Duncan> "mode='wb'" to the download.file() call is necessary.
    >> 
    >> ok;  Thank you, Duncan.
    >> 
    >> {For me, that's yet another reason why I think it would be  ``nice''
    >> if both  load() and source()  would work with general
    >> connections the same way as read.table(), and I could just say
    >> 
    >> load("ftp://stat.ethz.ch/U/maechler/R/eigenBug.Rdata")
    >> }

    BDR> The help page for load() does have an example of using a url() connection 
    BDR> here, and that works in this example on Windows, as does

    BDR> load(url("ftp://stat.ethz.ch/U/maechler/R/eigenBug.Rdata"))

    BDR> Not so hard, surely?

definitely not.  Here, I've confused  load() and source() 
and just last week in a course I gave I had wished that I could
use
	source(url(....))

    BDR>   (The reason load() is different is that it can transparently handle compressed files, unlike read.table.)

yes, indeed; I had forgotten about the reason.
Martin



[Rd] eigen returns NAs from a real matrix
Martin Maechler