[R] Strange warning in summary.lm

[Peter Dalgaard]

Prof Brian Ripley wrote:
> On Thu, 19 Jul 2007, Peter Dalgaard wrote:
>
>   
>> ONKELINX, Thierry wrote:
>>     
>>> The problem also exists in a clean workspace. But I've found the
>>> troublemaker. I had set options(OutDec = ","). Resetting this to
>>> options(OutDec = ".") solved the problem.
>>>
>>> Thanks,
>>>
>>> Thierry
>>>
>>>       
>> Oups. That sounds like there's a bug somewhere. Can you cook up a
>> minimal example which shows the behaviour?
>>     
>
> Any use of summary.lm will do it (e.g. example(lm)).  The problem is in 
> printCoefmat, at
>
>     x0 <- (xm[okP] == 0) != (as.numeric(Cf[okP]) == 0)
>
> and yes, it looks like an infelicity to me.
>
>   
Ick. Any better ideas than

printsAs0 <- scan(con <- textConnection(Cf[okP), dec=options("outDec")) ; close(con)
x0 <- (xm[okP] == 0) != printsAs0 

?

-- 
   O__  ---- Peter Dalgaard             Øster Farimagsgade 5, Entr.B
  c/ /'_ --- Dept. of Biostatistics     PO Box 2099, 1014 Cph. K
 (*) \(*) -- University of Copenhagen   Denmark          Ph:  (+45) 35327918
~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk)                  FAX: (+45) 35327907