tester_runif

for (i in c(1:1000000)) {
test <- floor(runif(30,1,31))
if (any(test == 31)) cat("YEP!")
}