sigma函数在R中的应用

我试图复制一个关于丹麦数据集的例子的图表，该数据集用于文本《非人寿保险数学》

我想从我的数据集中创建以下新变量，以便绘制图表。我最大的挑战是如何求w与j的和（sigma），因为我必须从两个值的最大值到两个值的最小值开始。我一点也不知道如何在R中进行操作。我想我还有很多东西要学习如何在R中进行操作

如果有人能给我一些有用的建议，我将不胜感激

下面是有问题的等式，我无法替换sigma符号，所以我使用字面解释（sum）

试试这个

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

---

什么是

Wj

？它是一个函数还是一个值的集合/向量？wj是2000多个观测值的实际到达时间。我们没有任何函数来实现序列求和的

sigma

符号吗？@monahalal有

sum

函数。

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