如何计算一系列的激情？

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)}))