r - 在函数内将参数传递给 R 中的 lm

Question

我想打电话lm在函数内并指定 weights变量作为参数传递给外部函数，然后传递给 lm .下面是一个可重现的示例，如果对 lm 进行调用，则该调用会起作用。在函数之外，但会产生错误消息 Error in eval(expr, envir, enclos) : object 'weightvar' not found当从包装函数中调用时。

olswrapper <- function(form, weightvar, df){
  ols <- lm(formula(form), weights = weightvar, data = df)
  }

df <- mtcars

ols <- lm(mpg ~ cyl + qsec,  weights = gear, data = df)
summary(ols)

ols2 <- olswrapper(mpg ~ cyl + qsec,  weightvar = gear, df = df)
#Produces error: "Error in eval(expr, envir, enclos) : object 'weightvar' not found"

Answer 1

基于评论，gear不是全局定义的。它在单机内部运行 lm当您指定正在使用的数据时调用，所以 lm知取gear来自 df .

然而，gear本身不存在于独立之外 lm功能。这由 gear 的输出显示

> gear
Error: object 'gear' not found

您可以通过 gear使用 df$gear 进入函数

weightvar <- df$gear
ols <- olswrapper(mpg ~ cyl + qsec, weightvar , df = df)