lm eval(extras, data, env) 错误：找不到对象

Question

我试图在 R-4.1.2 中基于

lm

构建一个函数，但我不断收到错误消息：

Error in eval(extras, data, env) : object not found.

这是一个可重现的代码示例：

my_fun <- function(formula, data, v) {
    lm(formula, data, weights = 1/v)
}
my_fun(dist ~ speed, cars, rep(1, 50))

Error in eval(extras, data, env) : object 'v' not found

    8.eval(extras, data, env)
    7.eval(extras, data, env)
    6.model.frame.default(formula = formula, data = data, weights = 1/v, 
      drop.unused.levels = TRUE)
    5.stats::model.frame(formula = formula, data = data, weights = 1/v, 
      drop.unused.levels = TRUE)
    4.eval(mf, parent.frame())
    3.eval(mf, parent.frame())
    2.lm(formula, data, weights = 1/v)
    1.my_fun(dist ~ speed, cars, rep(1, 50))

传递权重向量时似乎有问题。有人有解决方案吗？

提前致谢！