Roulette in R