search for: ecall

...t;contr.poly")) on.exit(options(opcons)) allTerms <- Terms errorterm <- attr(Terms, "variables")[[1 + indError]] eTerm <- deparse(errorterm[[2]], width = 500, backtick = TRUE) intercept <- attr(Terms, "intercept") ecall <- lmcall ecall$formula <- as.formula(paste(deparse(formula[[2]], width = 500, backtick = TRUE), "~", eTerm, if(!intercept) "- 1"), env=environment(formula))...

...on.exit(options(opcons)) > allTerms <- Terms > errorterm <- attr(Terms, "variables")[[1 + indError]] > eTerm <- deparse(errorterm[[2]], width = 500, backtick = TRUE) > intercept <- attr(Terms, "intercept") > ecall <- lmcall > ecall$formula <- > as.formula(paste(deparse(formula[[2]], width = 500, > backtick = TRUE), "~", eTerm, > if(!intercept) "- 1"), > env=env...

....factor(s), drop.unused.levels = TRUE) 9: model.frame(formula = y ~ as.factor(s), drop.unused.levels = TRUE) 8: eval(expr, envir, enclos) 7: eval(mf, parent.frame()) 6: lm(formula = y ~ as.factor(s), singular.ok = TRUE, method = "qr", qr = TRUE) 5: eval(expr, envir, enclos) 4: eval(ecall, parent.frame()) 3: aov(y ~ as.factor(g) + Error(as.factor(s))) 2: aov1(x, g, s = s) 1: tst() > Sorry but I do not have a clue as to which environment is active when the error was called Help anyone? Thanks . Heberto Ghezzo Meakins-Christie Labs McGill University Montreal Canada -.-.-.-.-.-.-....

...+ else { + if (ii > max) /* checked first since more common than ii < min */ + max = ii; + else if (ii < min) min = ii; - if (ii > max) - max = ii; - } else isna = TRUE; + } } + if (max > nx) { if(canstretch) *stretch = max; else { ECALL(call, _("subscript out of bounds")); } } - if (min < 0) { - if (max == 0 && !isna) return negativeSubscript(s, ns, nx, call); + + if (min > 0) /* All positive (or NA) */ + return s; + else if (min < 0) { + if (max <= 0 && !isna) return ne...