R Bootstrap Error - ＆＃39; Original＆＃39;未找到

Question

我试图用glm引导参数估计的标准误差，并且我在引导步骤中遇到了一些麻烦。我已将我的功能定义如下......

boot.fn=function(data,index){
          return(eval(substitute(coef(glm(glm.formula,
                      family = tweedie(var.power=1.5,link.power=0),
                      data=data,
                      subset=index,
                      weights=EXPOSURE_COLL
                      )))))  
}

...并且此函数自行运行且没有错误。但是，当我运行bootstrap时......

set.seed(1977)
boot(coll.train,boot.fn,1000)

...我收到以下错误消息：

Error in eval(expr, envir, enclos) : object 'original' not found 

非常感谢任何人提供的任何帮助！