search for: dosub

.../lang/R/Courses/3S6/plot.R.orig Tue Sep 2 23:43:42 2003 --- /home/berwin/lang/R/Courses/3S6/plot.R Mon Mar 8 16:06:32 2004 *************** *** 312,318 **** mf <- eval(m, parent.frame()) 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) } --- 312,320 ---- mf <- eval(m, parent.frame()) if (!missing(subset)) { s <- eval(m$subset, data, parent.frame()) ! mtmp <- m ! mtmp$subset <- NULL ! l <- nrow(e...

...(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. Version: platform = sparc-sun-solaris2.6 arch = sparc os = solaris2.6 system =...

...l <- nrow(data) ###\current ###new (as per points.formula) if (!missing(data)) { l <- nrow(data) } else { mtmp <- m mtmp$subset <- NULL l <- nrow(eval(mtmp, parent.frame())) } ###\new dosub <- function(x) if (length(x) == l) x[s] else x ###current ### dots <- lapply(dots, dosub, s) ###\current ###new (as per points.formula) dots <- lapply(dots, dosub) ###\new } response <- attr(attr(mf, "terms"), "response")...