Вызов веса в lm () внутри функции не оценивается должным образом

Формулы являются особенными в R в том смысле, что они не только отслеживают имена символов / переменных, но также отслеживают среду, в которой они были созданы. Проверить

ff <- mpg ~ cyl
environment(ff)
# <environment: R_GlobalEnv>
foo <- function() {
  ff <- mpg ~ cyl
  environment(ff)
}
foo()
# <environment: 0x0000026172e505d8> private function environment (different each time)

Проблема в том, что lm будет пытаться использовать среду, в которой была создана формула, для поиска переменных, а не родительский фрейм. Поскольку вы создаете формулу при вызове wt_reg, формула сохраняется в глобальной области. Но wts существует только в области видимости функции. Вы можете изменить свою функцию, чтобы изменить среду в формуле на среду локальной функции, тогда все должно работать

wt_reg <- function(form, data, wts) {
  ff <- as.formula(form)
  environment(ff) <- environment()
  lm(formula = ff, data = data,
     weights = wts)
}

wt_reg(mpg ~ cyl, data = mtcars, wts = 1:nrow(mtcars))

eval(mf, parent.frame), о котором вы говорите в lm(), вызывает model.frame() с вашей формулой. И из описания на странице справки ?model.frame: «Все переменные в формуле, подмножестве и в ... сначала ищутся в данных, а затем в среде формулы (дополнительные сведения см. В справке по формуле ()) и собираются во фрейм данных ". Таким образом, он снова смотрит в среду формулы, а не в вызывающий фрейм.