获取错误引导以测试预测模型

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

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

Answer 1

信贷转到@Rui Barradas，查看原始帖子的评论。

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

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