1.1 exercise 6

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