rsq <- function(formula, data, indices) {
d<-data[indices,]
  fit <- lm(formula, data=d)
  return(summary(fit)$r.square)
}

library(boot)
set.seed(1234)
results <- boot(data=mtcars, statistic=rsq,
                R=1000, formula=mpg~wt+disp)

这段代码里的“ d<-data[indices,]”是什么意思？是必须的吗？