对一组数据用自助法求平均值，但是出现了错误。

问题描述：想对A数据用自助法求平均值，但是出现了错误，看不太懂是哪里出错了。数组A如下：
A
-0.20
0.21
1.86
1.97
2.31
2.80
3.30
3.60
4.31
4.40

代码如下：

运行结果：

ad_A<-function(formula,data,indices){

•   d<-data[indices,]
  

•   fit<-mean(lead$A)
  

•   return(summary(fit))
  

• }

  bootobject<-boot(data=lead,statistic=ad_A,R=1000)
  Error in data[indices, ] : incorrect number of dimensions#错误提示