Re: [Rd] Possible bug in termplot function (stats package) ?

2011-06-06 Thread Thomas Lumley
On Tue, Jun 7, 2011 at 7:30 AM, Joris Meys wrote: > On Mon, Jun 6, 2011 at 9:15 PM, peter dalgaard wrote: >> >> I'd say that the burden of proof is really on your side, but how hard can it >> be: >> >>> x <- 1:10 >>> y <- rnorm(10) >>> m <- lm(y~x) >>> m$call >> lm(formula = y ~ x) >>> m$call$da

Re: [Rd] Possible bug in termplot function (stats package) ?

2011-06-06 Thread Joris Meys
On Mon, Jun 6, 2011 at 9:15 PM, peter dalgaard wrote: > > I'd say that the burden of proof is really on your side, but how hard can it > be: > >> x <- 1:10 >> y <- rnorm(10) >> m <- lm(y~x) >> m$call > lm(formula = y ~ x) >> m$call$data > NULL > I see... indeed, thx for the answer and sorry for m

Re: [Rd] Possible bug in termplot function (stats package) ?

2011-06-06 Thread peter dalgaard
On Jun 6, 2011, at 20:38 , Joris Meys wrote: > On Mon, Jun 6, 2011 at 6:29 PM, peter dalgaard wrote: >> >> On Jun 6, 2011, at 17:15 , Joris Meys wrote: >> > **snip** >>> If nothing is found, an error is returned. If >>> anything is found, data won't be NULL, so line 20, when reached, will >>>

Re: [Rd] Possible bug in termplot function (stats package) ?

2011-06-06 Thread Joris Meys
On Mon, Jun 6, 2011 at 6:29 PM, peter dalgaard wrote: > > On Jun 6, 2011, at 17:15 , Joris Meys wrote: > **snip** >> If nothing is found, an error is returned. If >> anything is found, data won't be NULL, so line 20, when reached, will >> always return FALSE. Can it be that lines 18 and 19 should

Re: [Rd] Possible bug in termplot function (stats package) ?

2011-06-06 Thread peter dalgaard
On Jun 6, 2011, at 17:15 , Joris Meys wrote: > Hi all, > > I noticed some very odd behaviour in the termplot function of the > stats package due to the following lines : > > 18.if (is.null(data)) > 19. data <- eval(model$call$data, envir) > > This one will look in the global environm

[Rd] Possible bug in termplot function (stats package) ?

2011-06-06 Thread Joris Meys
Hi all, I noticed some very odd behaviour in the termplot function of the stats package due to the following lines : 18.if (is.null(data)) 19. data <- eval(model$call$data, envir) This one will look in the global environment, and renders the two lines after this 20. if (is.null(data