如何计算一系列的激情？

Question

我试图计算一系列的激情，我不知道我的错误是什么，因为我没有得到正确的结果。我必须计算的是这个

这里，Z（n，i）是从samllest到最大的数字向量。

我所做的就是这个

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