In Las Vegas, a roulette wheel has 38 slots numbered 0, 00, 1, 2, . . . , 36. The 0 and 00 slots are green and half of the remaining 36 slots are red and half are black. A croupier spins the wheel and throws in an ivory ball. If you bet 1 dollar on red, you win 1 dollar if the ball stops in a red slot and otherwise you lose 1 dollar. Write a program to find the total winnings for a player who makes 1000 bets on red.
bets <- function(plays){
dollars <- 0 # start from zero
for (i in 1:plays){
spins <- sample(1:38, 1, replace = TRUE)
for (count in spins){
if(count <= 18){
dollars[i+1] <- dollars[i] + 1
} else {
dollars[i+1] <- dollars[i] - 1
}
}
}
return(dollars)
}
# Total wining for 1000 bets
bets(1000)
## [1] 0 -1 0 -1 0 1 0 1 0 -1 0 1 0 -1 -2 -1 0
## [18] 1 0 -1 -2 -3 -4 -3 -2 -1 -2 -3 -4 -3 -4 -3 -4 -5
## [35] -6 -5 -6 -7 -8 -9 -10 -9 -8 -7 -8 -9 -10 -11 -12 -13 -12
## [52] -13 -14 -13 -12 -13 -12 -13 -12 -11 -12 -13 -14 -15 -16 -15 -14 -13
## [69] -12 -13 -12 -11 -12 -11 -12 -13 -14 -15 -16 -15 -14 -15 -16 -17 -18
## [86] -17 -16 -15 -16 -15 -14 -13 -12 -11 -12 -13 -12 -11 -10 -11 -12 -11
## [103] -12 -11 -10 -11 -12 -13 -12 -11 -12 -11 -10 -9 -8 -9 -10 -9 -10
## [120] -11 -10 -11 -10 -11 -12 -13 -12 -13 -12 -13 -14 -13 -12 -13 -12 -11
## [137] -10 -11 -12 -13 -12 -11 -10 -11 -10 -11 -12 -13 -14 -15 -14 -15 -14
## [154] -15 -16 -15 -14 -15 -16 -17 -18 -19 -20 -21 -22 -23 -24 -23 -22 -23
## [171] -24 -23 -22 -23 -24 -25 -24 -25 -24 -23 -22 -21 -22 -23 -22 -23 -24
## [188] -25 -24 -23 -22 -21 -20 -21 -20 -19 -20 -19 -18 -17 -18 -19 -20 -19
## [205] -20 -19 -20 -19 -18 -19 -20 -21 -22 -21 -22 -21 -20 -21 -20 -19 -18
## [222] -19 -20 -21 -22 -23 -24 -25 -26 -25 -26 -25 -24 -23 -22 -23 -24 -25
## [239] -24 -25 -26 -25 -24 -23 -24 -23 -22 -21 -22 -21 -20 -19 -20 -19 -20
## [256] -19 -18 -17 -16 -17 -16 -17 -16 -17 -16 -17 -16 -17 -16 -15 -16 -15
## [273] -16 -15 -16 -17 -18 -19 -20 -19 -18 -17 -18 -19 -18 -19 -18 -19 -18
## [290] -19 -20 -21 -20 -21 -22 -23 -24 -23 -24 -25 -26 -25 -26 -27 -26 -25
## [307] -24 -23 -22 -23 -22 -23 -22 -23 -22 -21 -22 -21 -22 -23 -22 -21 -20
## [324] -21 -22 -21 -22 -21 -22 -23 -24 -25 -26 -25 -24 -25 -26 -27 -28 -29
## [341] -28 -29 -28 -29 -30 -29 -30 -31 -32 -31 -32 -31 -32 -33 -32 -33 -32
## [358] -31 -32 -33 -32 -33 -32 -33 -32 -31 -32 -31 -32 -31 -32 -31 -30 -31
## [375] -32 -33 -32 -33 -32 -31 -32 -33 -34 -35 -34 -35 -36 -37 -38 -37 -36
## [392] -35 -34 -33 -34 -33 -34 -35 -36 -37 -38 -39 -40 -39 -40 -41 -42 -43
## [409] -42 -43 -42 -41 -42 -43 -44 -45 -44 -45 -46 -47 -46 -47 -46 -47 -46
## [426] -47 -46 -47 -46 -45 -46 -47 -46 -45 -46 -47 -48 -49 -48 -49 -48 -47
## [443] -48 -49 -50 -51 -50 -49 -50 -49 -48 -47 -48 -49 -48 -49 -48 -47 -48
## [460] -49 -48 -49 -50 -51 -52 -53 -52 -51 -52 -53 -52 -51 -52 -51 -52 -53
## [477] -52 -53 -54 -55 -54 -55 -54 -53 -52 -51 -52 -53 -52 -51 -50 -51 -52
## [494] -53 -52 -53 -52 -51 -52 -51 -52 -53 -52 -53 -52 -51 -52 -51 -50 -49
## [511] -48 -49 -48 -47 -46 -45 -44 -45 -46 -47 -48 -49 -48 -47 -48 -49 -48
## [528] -47 -48 -47 -46 -45 -44 -43 -44 -45 -46 -47 -46 -47 -46 -45 -44 -45
## [545] -44 -43 -42 -41 -42 -43 -44 -43 -44 -43 -44 -45 -46 -45 -46 -47 -46
## [562] -47 -46 -45 -46 -45 -44 -43 -44 -45 -44 -43 -44 -43 -42 -41 -42 -41
## [579] -42 -43 -42 -43 -42 -41 -40 -39 -40 -41 -40 -39 -40 -41 -42 -41 -42
## [596] -43 -44 -43 -42 -41 -40 -39 -40 -41 -42 -43 -42 -43 -42 -43 -44 -45
## [613] -46 -45 -44 -43 -44 -43 -42 -41 -42 -41 -42 -41 -40 -39 -38 -37 -36
## [630] -37 -36 -35 -36 -37 -36 -35 -36 -37 -38 -39 -40 -39 -40 -39 -38 -39
## [647] -38 -39 -38 -37 -36 -37 -36 -35 -36 -37 -38 -39 -38 -39 -40 -41 -40
## [664] -39 -38 -39 -40 -41 -40 -41 -40 -39 -40 -41 -40 -41 -40 -41 -42 -41
## [681] -40 -39 -40 -39 -38 -39 -38 -39 -40 -41 -40 -41 -40 -39 -38 -39 -40
## [698] -39 -38 -37 -38 -39 -40 -39 -40 -39 -40 -41 -42 -43 -44 -45 -44 -43
## [715] -42 -41 -40 -41 -40 -41 -42 -41 -40 -39 -38 -37 -36 -37 -38 -37 -36
## [732] -35 -36 -35 -36 -35 -36 -37 -36 -37 -36 -37 -36 -35 -34 -33 -32 -33
## [749] -34 -33 -34 -35 -34 -33 -32 -31 -30 -31 -32 -31 -30 -31 -30 -29 -28
## [766] -27 -26 -27 -26 -27 -26 -27 -26 -27 -26 -25 -26 -27 -28 -29 -28 -29
## [783] -30 -29 -30 -29 -28 -29 -28 -27 -28 -29 -30 -31 -32 -33 -32 -33 -34
## [800] -33 -34 -35 -36 -37 -38 -37 -38 -39 -40 -41 -40 -39 -40 -39 -38 -39
## [817] -38 -37 -36 -37 -38 -37 -38 -37 -38 -37 -36 -35 -36 -37 -38 -37 -36
## [834] -37 -36 -37 -36 -37 -38 -37 -38 -39 -38 -39 -38 -39 -38 -39 -38 -37
## [851] -36 -37 -36 -35 -34 -35 -34 -35 -34 -33 -32 -31 -30 -29 -28 -29 -30
## [868] -31 -32 -31 -32 -33 -34 -35 -34 -33 -34 -35 -34 -35 -34 -35 -36 -37
## [885] -36 -35 -34 -33 -32 -33 -32 -31 -30 -31 -30 -31 -32 -33 -32 -31 -30
## [902] -31 -30 -31 -32 -31 -32 -33 -34 -33 -32 -33 -34 -33 -34 -33 -34 -33
## [919] -32 -31 -32 -33 -34 -33 -32 -33 -34 -35 -36 -37 -38 -39 -38 -37 -36
## [936] -37 -38 -39 -40 -39 -38 -39 -40 -39 -38 -37 -38 -39 -40 -39 -40 -39
## [953] -40 -39 -38 -37 -36 -37 -36 -37 -36 -37 -36 -37 -36 -37 -38 -39 -40
## [970] -41 -40 -39 -40 -41 -42 -41 -40 -41 -40 -41 -40 -41 -42 -41 -40 -41
## [987] -40 -41 -42 -41 -40 -41 -42 -43 -42 -43 -44 -43 -42 -41 -40