在R中應用西格馬函數

Question

我正在嘗試複製文本非壽險數學中使用的丹麥數據集上的一個示例圖。

我想從我的數據集中創建以下新變量，以便我可以繪製圖形。我最大的挑戰是如何在w上結束Σ（sigma），因爲我必須從兩個值的最大值開始到兩個值的最小值。我沒有最隱祕的想法在R怎麼做。猜猜我還有很多事情還要學習如何在R中進行操作。

如果一些如何給我提供有用的技巧，我將不勝感激關於它。

下面是有問題的公式我不能代替西格瑪簽署所以我用了字面上的解釋（和）

1/λ(i)) = 1/(2m + 1) * sum Wj from {j=max(1,i−m) to min(n,i+m)} for m = 50. 

Answer 1

試試這個

m = 50 
total = 0 
for (j in seq(max(1, i-m), min(n, i+m)) { 
    total = total + W[j] 
} 
total = total/(2 * m + 1) 
lambda = 1/total 

或本

m = 50 
lambda = 1/(sum(W[max(i,i-m) : min(n,i+m)])/(2 * m + 1))