求大神帮忙看下我这个程序为什么运行不出来结果呢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

LB <- 0
UB <- 10
k=0.05
ARL0 <- 200
repeat {
  RL <- NULL
  for(i in 1:100) {
    e = 0
    count <- 0
    h <- (LB + UB) / 2
    while(e < h ) {
      x <- rnorm(1)
      e <- max(k*x+(1-k)*e, 0)
      count <- count + 1
    }
    RL <- count
  }
  ARL <- mean(RL)
  if(abs(ARL0 - ARL) <= 1) break
  if(ARL < ARL0 - 1) {
    LB <- h
  } else if(ARL > ARL0 + 1) {
    UB <- h
  }
}
h
ARL

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

我把循环次数降到100次，也运行不出来结果求大神指点

自己置顶

人工置顶

https://bbs.pinggu.org/forum.php?mod=viewthread&tid=6148622&page=1#pid48430515
我不是回复过吗

jinkelazzz 发表于 2018-3-16 09:07
https://bbs.pinggu.org/forum.php?mod=viewthread&tid=6148622&page=1#pid48430515
我不是回复过吗

大神，那个是CUSUM控制图，我根据那个修改了过程，利用了EWMA控制图的数据，可是结果出不来[sad]

RL <- count换成
RL[i ]<- count

jinkelazzz 发表于 2018-3-16 13:17
RL

嗯嗯，我试试。谢谢大神~