确定部分循环运行的次数

Question

我在下面有这个R代码。但是，我把i放在dy1，dy2和循环中我实际上希望这是衡量循环这个位运行次数的一个指标，即我在dy1和第9行都应该衡量一下时间线9已经运行，而我在dy2和第11行应该是第11行运行的次数的度量。我有什么想法可以做到这一点吗？

s<-50
s2<-60
dy1<-s*exp(-i/s)
dy2<-s2*exp(-i/s2)
y <- c(0)
y <- c(0)
for (i in 1:150){
  if (dy1>dy2){
    y[length(y)+1] <- y[lenth(y)]+4*((s*(1-exp(-(i+1)/s)))-(s*(1-exp(-i/s)))) 
  } else {
    y[length(y)+1]=y[length(y)]+((s2*(1-exp(-(i+1)/s2)))-(s*(1-exp(-i/s)))) 
  } 
} 
y