The dice game craps is played as follows. The player throws two dice, and if the sum is seven or eleven, then he wins. If the sum is two, three, or twelve, then he loses. If the sum is anything else, then he continues throwing until he either throws that number again (in which case he wins) or he throws a seven (in which case he loses).
Write a program to simulate a game of craps. You can use the following snippet of code to simulate the roll of two (fair) dice: x <- sum(ceiling(6*runif(2)))