If you change it to:
lm3 <- function(...) eval.parent(substitute(lm(...)))
then it works.
> lm3(mpg ~ wt, weights=cyl, data=mtcars)
Call:
lm(formula = mpg ~ wt, data = mtcars, weights = cyl)
Coefficients:
(Intercept) wt
35.50-4.91
On 9/3/06, hadley wickham <[EMAIL PRO
"hadley wickham" <[EMAIL PROTECTED]> writes:
> > lm2 <- function(...) lm(...)
> > lm2(mpg ~ wt, data=mtcars)
>
> Call:
> lm(formula = ..1, data = ..2)
>
> Coefficients:
> (Intercept) wt
> 37.285 -5.344
>
> > lm2(mpg ~ wt, weights=cyl, data=mtcars)
> Error in eval(expr, envi
