不懂，看看

不知道楼主这个函数的目的是什么。
看代码的话第14行data似乎应该改成d。
最后返回值是density(d)，函数本身用不改变d，这样的话其实第6行到第25行都是没用的。

额。复制错了，应该是
b<-data.frame(a$profit)

library(boot)  
beta<-function(data,indices){  
d<-data[indices,]
Max<-0;
Diff<-0;
SUM<-0;
Diff=matrix(0,1,839);
Max=matrix(0,1,840);
SUM=matrix(0,1,839);

for(i in 1:838){
                  SUM[1,i+1]=SUM[1,i]+d[i+1,1]
                  }

  for(j in 1:839){
                   if(SUM[1,j]>Max[1,j])
                   {Diff[1,j]<-0
                   Max[1,j+1]<-SUM[1,j]
                   } else {
                   Diff[1,j]<-Max[1,j]-SUM[1,j]
                   Max[1,j+1]<-Max[1,j]
                   }
                  }
            
return(density(Diff))  
}  

result<-boot(data=b,statistic=beta,R=1000)  
boot.ci(result);

还是不明白你的目的。是否能说得更清楚点？
boot函数是对某个统计量进行bootstrap，但beta函数返回的不是统计量，而是个list，因此会出错。
参看帮助文档：
statistic: A function which when applied to data returns a vector containing the statistic(s) of interest.

想要得到定义的Diff数据的频率分布。所以这里beta函数只能返回统计量，不能是频率分布的list是吗？这里出错了是吧？