search for: oldmf

...t multiple columns. mmatplot <- function(colnum, x, y, ...){ switch(class(y), array = y <- y[, colnum, ], list = y <- sapply(X = y, FUN = subset, select = colnum)) stopifnot(is.matrix(y)) matplot(x, y, ...) } #This is just a tester function mmatplotTest <- function(){ oldmf <- par("mfrow") par(mfrow = c(2,3)) A <- array(data = rnorm(90), dim = c(10, 3, 3)) L <- list(A[, , 1], A[, , 2], A[, , 3]) # The 'main' argument below throws the error, but if # commented out, another error crops up due to 'colnum'. # Test with class...

...naa <- model$call$na.action subset <- model$call$subset ! rval <- model.frame(ff, data=data, subset=subset, na.action=naa) } else { subset <- model$call$subset ! rval <- model.frame(ff, data=data, subset=subset, na.action=I) oldmf <- model.frame(model) keep <- match(rownames(oldmf), rownames(rval)) rval <- rval[keep, ] --- 18,29 ---- if (!na.expand){ naa <- model$call$na.action subset <- model$call$subset ! rval <- eval(call("model.frame",ff, d...

...naa <- model$call$na.action subset <- model$call$subset ! rval <- model.frame(ff, data=data, subset=subset, na.action=naa) } else { subset <- model$call$subset ! rval <- model.frame(ff, data=data, subset=subset, na.action=I) oldmf <- model.frame(model) keep <- match(rownames(oldmf), rownames(rval)) rval <- rval[keep, ] --- 19,30 ---- if (!na.expand){ naa <- model$call$na.action subset <- model$call$subset ! rval <- eval(call("model.frame",ff, d...

Dear R list members, I'm encountering a problem with expand.model.frame(): Suppose that I define the following simple function (meant just to illustrate the problem): > fun <- function(model){ + expand.model.frame(model, all.vars(formula(model))) + } > and I have the following model, created with an explicit data argument: > mod Call: