# NOT RUN {
play_game <- make_gmae(
outcomes = c(-1, 0, 5)
probs = c(0.4, 0.5, 0.1)
plays = 2000
)
## Play "plays" times, get net winnings:
sampler()
## Play "plays" times again:
sampler()
## Play "plays" times, a third time:
sampler()
## 1000 more simulations of the net winnings:
sampler(n = 1000)
# }
Run the code above in your browser using DataLab