如何计算一个系列的总和？

Question

我正在尝试计算一个系列的总和，但我不知道我的错误是什么，因为我没有得到正确的结果。我必须计算的总结是这样的

这里，Z(n,i) 是一个从小到大排序的数字向量。

我做的是这个

wi<-c()
wi[1]=1/(1/n^2) #n is n<-length(Z) where Z is the numeric vector of data
for(i in 1:n){
   for(j in 2:i){
       wi[i]=w[i-1]+1/(1(n-j+1)^2)
   }
}

有没有另一种方法来设置这个总和而不计算 for 循环之前的第一项？ 这个总和是否正确定义？

感谢您的帮助。

Answer 1

您可以像这样紧凑地计算总和：

1/cumsum(lapply(1:length(Z), function(i){1/(length(Z) - i + 1)}))