R 带缩减的双抽样计划的平均抽样数

我试图计算一个缩减的双抽样计划的平均抽样数。我对R中的循环非常陌生，所以我正在寻求一些帮助。我来自一个工程背景，没有很多适当的编程培训，所以他们对我来说很难。我试图创建的图比较了ASN是否有缩减

我试着把for循环放在不同的位置，但运气不好

asnWOcurt <- n4_1 + n4_2*(pbinom(c4_2,n4_1,p_vec) - 
pbinom(c4_1,n4_1,p_vec))
summ_m <- 0
summ_i <- 0

for (i in (c4_1+1):c4_2) {
  for (m in (c4_2-i+1):n4_2) {
    summ_m <- summ_m + m*pnbinom(c4_2-i+1,m,p_vec)
  }
  summ_i <- summ_i + (n4_2*dbinom(c4_2-i, n4_2, p_vec) + 
summ_m)*pbinom(i,n4_1,p_vec)
}
asnWcurt <- n4_1 + summ_i 

 plot(p_vec, asnWOcurt, type="o", col="blue", pch="o", lty=1, 
xlim=c(0,0.2), ylim=c(80,200) )
  points(p_vec, asnWcurt, col="red", pch="*")
  lines(p_vec, asnWcurt, col="red",lty=2)

---

asnWOcurt不清楚您到底想做什么，但您可能应该重新设置
sum\m您能更具体地回答您的问题吗，您是否正在尝试优化函数，并且缺少关于其他变量的信息，例如n4_1或n4_2是哪一个？感谢您的回答，我不知道我的问题有答案。我正在尝试公式化这个方程。我正在尝试转换成代码的方程是：ASN（p）