Question

在以下代码中，while循环将打印z的值，直到z达到0或11，因为它的值会被公平硬币的翻转加或减。

如何使这个功能打印硬币被翻转的次数？

z <- 5

while(z >= 1 && z <= 10) {
  print(z)
  coin <- rbinom(1, 1, 0.5)

  if(coin == 1) {
        z <- z +1 
  } else {
    z <- z -1
  }

}

Answer 1

您可以将硬币翻转的次数存储为另一个变量，在下面的代码中称为flips。然后每次while循环执行时，只需递增flips。然后在函数末尾返回flips。

coin_flip <- function(z) {

  flips <- 0

  while(z >= 1 && z <= 10) {
    print(z)
    coin <- rbinom(1, 1, 0.5)

    if(coin == 1) {
      z <- z +1 
    } else {
      z <- z -1
    }

    flips <- flips + 1

  }

  paste("The coin flipped", flips, "times.")

}

set.seed(1234)
coin_flip(5)
# [1] 5
# [1] 4
# [1] 5
# [1] 6
# [1] 7
# [1] 8
# [1] 9
# [1] 8
# [1] 7
# [1] 8
# [1] 9
# [1] 10
# [1] "The coin flipped 12 times."

循环执行时打印次数

1 个答案: