全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
1982 7
2018-03-15
微信截图_20180315201341.png
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

二维码

扫码加我 拉你入群

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

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

全部回复
2018-3-15 20:13:34
我把循环次数降到100次,也运行不出来结果求大神指点
二维码

扫码加我 拉你入群

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

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

2018-3-15 20:26:16
自己置顶
二维码

扫码加我 拉你入群

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

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

2018-3-15 22:18:16
人工置顶
二维码

扫码加我 拉你入群

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

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

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

扫码加我 拉你入群

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

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

2018-3-16 10:32:51
jinkelazzz 发表于 2018-3-16 09:07
https://bbs.pinggu.org/forum.php?mod=viewthread&tid=6148622&page=1#pid48430515
我不是回复过吗
大神,那个是CUSUM控制图,我根据那个修改了过程,利用了EWMA控制图的数据,可是结果出不来[sad]
二维码

扫码加我 拉你入群

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

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

点击查看更多内容…
栏目导航
热门文章
推荐文章

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群