基本保险风险模型 - R

Question

我目前正致力于基本保险风险流程的R代码。 这是作业的一部分，我正在努力解决三件事 -

问题在于此处附带的图像。 Question

1）将到达时间指定为齐次泊松过程。我想知道E一代是否应该解决这个问题。

2）我不确定如何在R

中包含求和

3）我还在努力学习如何在代码中有效地集成j？我是以正确的方式使用它吗？我还是R的新手。我的代码对我来说似乎不对，我只是想知道是否有人可以指出我正确的方向。

a = 10
n=100
t=0
l=10
for(t in 1:n){
  E <- rexp(n,l)
  if(t + E < t){ 
  t= t + E
  }else{
  if(t + E >=t){
    for(j in 1:t)
    R = a + 5*t - sum(X[j])
    }
   }
 }