R Notebook For Hw 2

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) 

[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
  
})
mean(event) 

[1] 0.5996

Question 3

In one or two lines, describe when we may use the any()function.

You would us this function if you wanted to quickly check if the parameters remain true.