[Rd] Bug in plot.formula (PR#757)

[Prof Brian Ripley]

> From: presnell@stat.ufl.edu
> Date: Mon, 4 Dec 2000 17:29:56 +0100 (MET)
> To: r-devel@stat.math.ethz.ch
> Subject: [Rd] Bug in plot.formula (PR#757)
> CC: R-bugs@biostat.ku.dk
> X-Loop: R-bugs@biostat.ku.dk
> 
> 
> Here's a simple example:
> 
>   > x <- rnorm(20)
>   > y <- 1 + 10*x + rnorm(20)
>   > plot(y ~ x, subset=2*(1:10),xlab="In",ylab="Out")
>   Error in length(x) == l : comparison (1) is possible only for vector types
> 
> The problem seems to be in this section of the code for plot.formula:
> 
>   if (!missing(subset)) {
>     s <- eval(m$subset, data, parent.frame())
>     l <- nrow(data)
>     dosub <- function(x) if (length(x) == l) 
>       x[s]
>     else x
>     dots <- lapply(dots, dosub)
>   }
> 
> Sorry, no time this morning to attempt a fix myself, but I thought it
> best to get this in before 1.2 is released.

1.2 gives another error message, but the problem is using subset and
supplying a data argument.  Try

plot(y ~ x, subset=2*(1:10),xlab="In",ylab="Out", data=data.frame(x,y))

I *think* it should be l <- nrow(mf), but the function's author might
like to confirm the intention.

> 
> 
> Version:
>  platform = sparc-sun-solaris2.6
>  arch = sparc
>  os = solaris2.6
>  system = sparc, solaris2.6
>  status = 
>  major = 1
>  minor = 1.1
>  year = 2000
>  month = August
>  day = 15
>  language = R
> 
> Search Path:
>  .GlobalEnv, 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
> 
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

-- 
Brian D. Ripley,                  ripley@stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272860 (secr)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._