r - 在 R 中应用 sigma 函数

Question

我正在尝试在非人寿保险数学文本中使用的丹麦数据集的示例上复制图表。

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

如果一些方法能给我关于如何去做的有用提示，我将不胜感激。

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

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

score 1 · Accepted Answer

尝试这个

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

1 回答 1