获取 Error Bootstrapping 以测试预测模型

Question

rsq <- function(formula, Data1, indices) {
  d <- Data1[indices,] # allows boot to select sample 
  fit <- lm(formula, Data1=d)
  return(summary(fit)$r.square)
}
results = boot(data = Data1, statistic = rsq, R = 500)

当我执行代码时，出现以下错误：

Error in Data1[indices,] : incorrect number of dimensions

背景信息：我正在使用线性回归创建预测模型。我想测试我的预测模型，通过一些研究，我决定使用 Bootstrapping 方法。

Answer 1

归功于@Rui Barradas，查看原始评论 post。

如果您阅读函数 boot::boot 的帮助页面，您会看到它调用的函数有第一个参数数据，然后是索引，然后是其他参数。因此，将函数定义的顺序更改为 rsq <- function(Data1, indices, formula)

我遇到的另一个问题是我没有定义函数。