Displaying 4 results from an estimated 4 matches for "ecal".
Did you mean:
eval
2004 Jan 30
0
Two apparent bugs in aov(y~ *** -1 + Error(***)), with suggested (PR#6510)
...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))...
2004 Feb 02
0
Two apparent bugs in aov(y~ *** -1 + Error(***)), with (PR#6520)
...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=en...
2001 Dec 17
1
environments again
....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
-.-.-.-.-.-.-...
2010 Sep 08
0
Correction to vec-subset speed patch
...+ 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 n...