函数可以工作（ boot.stepAIC ），但在另一个函数中抛出错误 - 环境问题？

今天我在 R 代码中发现了一个奇怪的行为。 我尝试了一个包 {boot.StepAIC}，其中包含一个用于 AIC 逐步回归结果的引导函数。然而，我不认为统计背景是问题所在（我希望如此）。
我可以在 R 的顶层使用该函数。这是我的示例代码。

require(MASS)
require(boot.StepAIC)

n<-100
x<-rnorm(n); y<-rnorm(n,sd=2); z<-rnorm(n,sd=3); res<-x+y+z+rnorm(n,sd=0.1)
dat.test<-as.data.frame(cbind(x,y,z,res))
form.1<-as.formula(res~x+y+z)
boot.stepAIC(lm(form.1, dat.test),dat.test) # should be OK - works at me

但是，我想将其包装在一个自己的函数中。我将数据和公式传递给该函数。但我在 boot.stepAIC() 中收到错误消息：

模型拟合在 100 个 bootstrap 样本中失败 错误 strsplit(nam.vars, ":") ：非字符参数

# custom function
fun.boot.lm.stepAIC<-function(dat,form) {
  if(!inherits(form, "formula")) stop("No formula given")
  fit.lm<-lm(formula=form,data=dat)
  return(boot.stepAIC(object=fit.lm,data=dat))
 }
fun.boot.lm.stepAIC(dat=dat.test,form=form.1)
# results in an error 

那么错误在哪里呢？我想这一定与当地和全球环境有关，不是吗？

Using do.call as in 使用粘贴公式创建的 lme 拟合的方差分析测试失败提供了答案。

boot.stepAIC无权访问form当在函数内运行时；可以在这样的全球环境中重新创建；我们看到lm正在使用form.1作为公式，并删除它使得boot.stepAIC fail.

> form.1<-as.formula(res~x+y+z)
> mm <- lm(form.1, dat.test)
> mm$call
lm(formula = form.1, data = dat.test)
> rm(form.1)
> boot.stepAIC(mm,dat.test)
# same error as OP

Using do.call确实有效。这里我使用as.name以及；否则mm对象携带整个数据集而不仅仅是它的名称。

> form.1<-as.formula(res~x+y+z)
> mm <- do.call("lm", list(form.1, data=as.name("dat.test")))
> mm$call
lm(formula = res ~ x + y + z, data = dat.test)
> rm(form.1)
> boot.stepAIC(mm,dat.test)

要将其应用于原始问题，我会这样做：

fun.boot.lm.stepAIC<-function(dat,form) {
  if(!inherits(form, "formula")) stop("No formula given")
  mm <- do.call("lm", list(form, data=as.name(dat)))
  do.call("boot.stepAIC", list(mm,data=as.name(dat)))
}    
form.1<-as.formula(res~x+y+z)
fun.boot.lm.stepAIC(dat="dat.test",form=form1)

这也有效，但整个数据集也包含在最终输出对象中，以及控制台的最终输出中。

fun.boot.lm.stepAIC<-function(dat,form) {
  if(!inherits(form, "formula")) stop("No formula given")
  mm <- do.call("lm", list(form, data=dat))
  boot.stepAIC(mm,data=dat)
}    
form.1<-as.formula(res~x+y+z)
fun.boot.lm.stepAIC(dat=dat.test,form=form.1)