Page 197 Exercise 7

  1. A die is roll until the first time T that a six turn up.
  1. What is the probability distribution for T?
  1. Find P(T>3)
  2. Find P(T>6|T>3)
A <- rbinom(n = 6, size = 1, prob = 0.5)
P <- (T)

hist(A)

print(A)
## [1] 1 1 1 0 0 1
B <- rbinom(n = 6, size = 1, prob = 0.5)
P <- (T > 3)

hist(B)

print(B)
## [1] 1 0 0 1 1 0
C <- rbinom(n = 6, size = 1, prob = 0.5)
P <- (T >6 | T > 3)

hist(C)

print(C)
## [1] 1 0 0 0 0 0