R Notebook For example 2.14

Example 2.14

A fair coin is repeatedly tossed. Estimate the probability that you observe Heads for the third time on the 10th toss.

Answer

event <- replicate(10000, {
  coinToss <- sample(c("H", "T"), 10, replace = TRUE)
  coinToss
  sum(coinToss == "H") # test
  sum(coinToss == "H") == 3
  coinToss[1:9]
  sum(coinToss[1:9] == "H") == 2
  sum(coinToss == "H") == 3 & sum(coinToss[1:9] == "H") == 2
})
mean(event)

[1] 0.0351