Replicating Example 1.1 on page 5 of text- Part 1 (Math 2100, 20 January 2021)

Understanding sampling, boolean comparison, assignment statement and checking for success

trial =sample(1:6, size = 6, replace = TRUE)
trial==1:6

[1] FALSE FALSE FALSE FALSE  TRUE FALSE

x=trial==1:6
if (any (x==TRUE)) cat ("success")

success

N=500
freq=0
for (i in 1:N){
  trial =sample(1:6, size = 6, replace = TRUE)
  x=trial==1:6
  if (any(x==TRUE)) freq=freq+1
}
cat("The probability of a face matching a trial is approximately ",freq/N, "where N =", N)

The probability of a face matching a trial is approximately  0.654 where N = 500