For the following R code. The argument is constructed correctly. How would I figure out how many outcomes of the 4000 tries are above 6 minutes?

for (i in 1:4000) {

rainTime = runif(n = 1, min = 1, max = 2)

rainFlag = rbern(n = 1, prob = 0.3)

rainX = (rainTime * rainFlag)

wash = runif(n = 1, min = 2, max = 3)

prewash = runif(n = 1, min = 1, max = 2)

totalTime = (wash + prewash + rainX)

}