You roll a fair die five times. Write R code that conducts a Monte Carlo simulation experiment with 500,000 replications that estimates the probability that you will see a string of three or more consecutive ones.

nrep = 500,000

count = 0

for ( i in 1 : nrep ) {

x = sample (1:6, 5, replace = TRUE)

if ( ) count = count +1