## Initial RouletteSpin <- function(num.spins){ # function that simulates Roulette Spins # ARGS: num.spins - number of spins can be encoded as an integer or double, # but must be an integer value # Returns: data frame consisting of color (character) and number (double), # there are 38 possible outcomes with two '0' values (0, 00) numbers <- c('00',as.character(0:36)) # assume all odds are red colors <- c(rep("green",2),rep(c('red','black'),18) roulette.board <- data.frame(numbers = numbers, colors = colors) spin.results <- matrix(0, nrow=num.spins, ncol=2) for (i in num.spins) spin.results[i,] <- roulette.board[sample(38,1)] return(spin.results) } RouletteSpin(4) ## Final Code RouletteSpin <- function(num.spins){ # function that simulates Roulette Spins # ARGS: num.spins - number of spins can be encoded as an integer or double, # but must be an integer value # Returns: data frame consisting of color (character) and number (double), # there are 38 possible outcomes with two '0' values (0, 00) numbers <- c('00',as.character(0:36)) # assume all odds are red colors <- c(rep("green",2),rep(c('red','black'),18)) roulette.board <- cbind(numbers, colors) spin.results <- matrix(0, nrow=num.spins, ncol=2) for (i in 1:num.spins){ spin.results[i,] <- roulette.board[sample(38,1),] } spin.results <- data.frame(spin.results) spin.results[,1] <- as.numeric(as.character(spin.results[,1])) colnames(spin.results) <- c('number','color') return(spin.results) } RouletteSpin(4)