使用R的硬币翻转模拟>

Question

我正在尝试模拟一个有偏的硬币（p = 0.7头），该硬币会反复翻转，直到连续出现2个正面或连续出现2个尾部（然后翻转停止）。我想找到概率P（连续两个头出现在连续两个尾部之前）。

寻找有关合并“尾巴”的帮助，将其翻转到循环中。谢谢

coin_flip <- function(head_p) {                           
   nflips <- 0                                           
   nheads <- 0
   ntails <- 0
   while (nheads != 2 & ntails != 2) {                                 
      nflips <- nflips + 1
      hflip <- sample(c(1,0),1,prob=c(head_p,1-head_p))
      tflip <- sample(c(0,1),1,prob=c(head_p,1-head_p))
      if(hflip == 1) nheads <- nheads + hflip
      if(tflip == 1) ntails <- ntails + tflip
      else nheads <- 0
      } 
 return(nflips)
 }

我正在尝试模拟一个有偏的硬币（p = 0.7头），该硬币会反复翻转，直到连续出现2个正面或连续出现2个尾部（然后翻转停止）。我想找到...

Answer 1

为了使您当前的方法有效，我必须进行一些更改：