R Notebook

Complete this R Notebook and submit it on Moodle by 11:59 pm on Monday, 9/13/21.

Question 1 (Example 2.25)

Suppose you roll five ordinary dice. What is the probability that all of them show six? There is no need to use the any() function.

set.seed(123)
event <- replicate(10000, {
  roll <- sample(1:6, 5, TRUE)
  sum(roll == 6) == 5
})
mean(event) # Answer must be 2e-04

[1] 2e-04

Question 2 (Example 2.26)

Suppose you roll five ordinary dice. What is the probability that at least one six appears? You may use the any() function.

set.seed(123)
event <- replicate(10000, {
  roll <- sample(1:6, 5, TRUE)
  any(roll == 6) == 1
  # Add a few lines of code here to compute the
  # probability that at least one six appears.
})
mean(event) # Answer must be 0.5996

[1] 0.5996

Question 3

In one or two lines, describe when we may use the any()function. # the any funcion would be used by the user to check if elements in the vector are true