Description Usage Arguments Details Value Author(s) References Examples

Runs a Texas Hold'em tournament, stopping for certain key hands which are shown graphically. The top finishers are given payouts. By default, only the top 3 finishers get points, and they get 13, 8, and 5 points respectively. See chapter 8 of Schoenberg, F. (2011).

1 2 3 | ```
tourn1(name1, decision1, chipstart1 = 1000,
bigstart1 = 20, inc1 = 1.5, winners1 = 3, myfast1 = 2,
t1 = 0.5, t2 = 1, graphiccutoff1 = 0.1, lowercut1 = 30)
``` |

`name1` |
names of the players |

`decision1` |
the players' codes to determine their betting and folding |

`chipstart1` |
how many chips each player starts with |

`bigstart1` |
the initial big blind |

`inc1` |
how much the blinds increase every 10 hands. If inc1 = 2, for instance, then blinds double after every 10 hands. |

`winners1` |
number of top finishers receiving payouts. |

`myfast1` |
make it 2 if you want the tournament to run quickly, or 0 if you want to show graphics and have to click the mouse to proceed while showing each key hand. |

`t1` |
fraction of times to show double ups |

`t2` |
fraction of times to show eliminations |

`graphiccutoff1` |
If a student's chip stack changes by a factor less than this amount, then the graphic display will not bother replotting her name. |

`lowercut1` |
If a student has fewer chips than this, her name won't appear on the graphic display. |

Each tournament works as follows. Blinds last 10 hands, then increase by factor of inc1. (rounded to the nearest chip) If the number of players left is 11-20, then each hand, players are split into 2 tables of equal size (or one off if the number of players is odd). Then 10 hands are played, regardless of how many players are eliminated during those 10 hands. The small blind is always 1/2 the big blind (rounded to the nearest integer). If the number of players > 20, then each 10 hands, players are randomly split into tables of size 10. The remaining players not assigned to tables sit out these 10 hands.

t1 and t2 govern how many hands are "key" hands. Usually, every student wants to see at least 1 hand involving their code, so by default t2 = 1 so that each student's elimination is shown, and if t1 = 0.5, then if a student doubles up on a hand, then that hand is shown with probability 0.5. The code might have errors if winners1 > 10.

A vector indicating the indices of the players who won, in order. For instance, an output of (4,1,5) means that function 4 got 1st place, function 1 got 2nd place, and function 5 got 3rd place.

Frederic Paik Schoenberg

Schoenberg, F. (2011). An Introduction to Probability with Texas Holdem Examples. Taylor and Francis, New York.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 | ```
name1 = c("gravity","tommy","ursula","timemachine","vera","william","xena")
decision1 = list(gravity, tommy, ursula, timemachine, vera, william, xena)
tourn1(name1, decision1, myfast1 = 2) ## run quickly
tourn1(name1, decision1, myfast1 = 0) ## run slowly, showing key hands
## The function is currently defined as
function(name1, decision1, chipstart1 = 1000, bigstart1 = 20,
inc1 = 1.50, winners1 = 3,myfast1 = 2, t1 = 0.5, t2=1,
graphiccutoff1 = .1, lowercut1 = 30 ){
## Note: don't have more than 10 winners! That might mess this up.
# blinds last 10 hands, then increase by factor of inc1. (rounded)
# If # players left is 11-20, then each hand, players are split
# into 2 tables of equal size (or one off if # players is odd). Then 10 hands are played,
# no matter what.
# Small = 1/2 big (rounded to nearest integer).
# If num players > 20, then each 10 hands, players are randomly split
# into tables of size 10. Remaining players sit out 10 hands.
# a) Start loop. Initiate blinds.
# b) Assign seats. Set num of tables.
# c) For each table, play a hand. Repeat 10 times.
# d) After each hand, update nplayers1, and
# if nplayers1 <= winners1, then store winners. See if all done too.
# e) On key hands, do instant replay! (if all-in & call, and
# total pool > 8 times big.
# f) Increase blinds and repeat b-e.
## myfast1 = 2 if you want it to go fast. 0 = slow.
## t1 = fraction of times to show double-ups
## t2 = fraction of times to show eliminations
## chipstart1 = starting number of chips. The big blind starts at 20.
## winners1 = the number of function that get points.
## payouts1 = c(13,8,5) = the number of points for the winner, 2nd place, etc.
nplayers1 = length(name1)
plot(c(0,nplayers1+1),c(lowercut1,chipstart1*nplayers1),pch=name1[1:nplayers1],
type="n",xlab="player number",ylab="chips",log="y")
chip1 = rep(chipstart1, nplayers1)
text(x=c(1:nplayers1),y=chip1,cex=2,labels=name1[1:nplayers1],srt=270,col=2)
chip7 = chip1
big1 = round(bigstart1)
sm1 = round(big1/2)
blinds1 = c(sm1,big1)
nleft1 = nplayers1
plleft = 1:nplayers1 ## plleft will be the indices of who's left.
places1 = rep(0,winners1)
stp3 = 0
while(stp3 < 1){
if(nleft1 > 20.5){
ntable1 = floor(nleft1/10)
pl1 = sample(nleft1)
tables1 = list(tbnums = rep(10,ntable1))
for(j in c(1:ntable1)){
tables1[[1+j]] = plleft[pl1[(1:10)+(j-1)*10]]
}
}
if((nleft1 < 20.5) && (nleft1 > 10.5)){
ntable1 = 2
pl1 = sample(nleft1)
thalf1 = ceiling(nleft1/2)
bhalf1 = nleft1 - thalf1
tables1 = list(tbnums = c(thalf1, bhalf1))
tables1[[2]] = plleft[pl1[1:thalf1]]
tables1[[3]] = plleft[pl1[(thalf1+1):nleft1]]
}
if(nleft1 < 10.5){
ntable1 = 1
pl1 = sample(nleft1)
tables1 = list(tbnums = nleft1)
tables1[[2]] = plleft[pl1]
## so, with 10 players or fewer, I'm re-shuffling seats every 10 hands.
}
cat("\n Big blind is ",blinds1[2],"\n")
for(i in 1:ntable1){
k = 0
for(j in 1:10){
chip3 = chip1[tables1[[1+i]]]
k = k+1
if(k > tables1[[1]][i]) k = 1
cat(j)
x32 = hand1(tables1[[1]][i], tables1[[1+i]], chip3,
blinds1, k, ntable1,myfast1,t1,t2,chipstart1,lowercut1, decision1)
chip2 = x32$chips2
chip1[tables1[[1+i]]] = chip2
chipdif8 = (abs(chip1-chip7)/pmax(chip1,chip7,rep(1,nplayers1)) > graphiccutoff1)
if(x32$draw1 > 1){
text(x=c(1:nplayers1),y=chip1,cex=2,labels=name1[1:nplayers1],srt=270,col=2)
chip7 = chip1
} else if(sum(chipdif8)>.5){
text(x=c(1:nplayers1)[chipdif8],
y=chip7[chipdif8],cex=2,col="white",labels=name1[chipdif8],srt=270)
text(x=c(1:nplayers1)[chipdif8],
y=chip7[chipdif8],cex=2,col="white",labels=name1[chipdif8],srt=270)
text(x=c(1:nplayers1)[chipdif8],
y=chip1[chipdif8],cex=2,col=2,labels=name1[chipdif8],srt=270)
chip7[chipdif8] = chip1[chipdif8]
}
## Now remove eliminated players, even if they were blinds.
## This may let some people miss their big blind. Note this.
j1 = sum(chip2 < .5) ## the number eliminated.
if(j1 > .5){
j2 = tables1[[i+1]][c(1:tables1[[1]][i])[chip2 < .5]] ## their indices
j3 = j2[order(chip3[j2],decreasing=T)] ## ordered by how much they had before
j4 = min(winners1,nleft1)
nleft1 = nleft1 - j1
if(nleft1 < winners1 - .5) places1[(nleft1+1):j4] = j3[1:(j4-nleft1)]
cat("\n Eliminated: ",j2,".....",nleft1," players remaining.\n")
tables1[[1]][i] = tables1[[1]][i] - j1
tables1[[1+i]] = tables1[[1+i]][chip2>.5]
}
if(nleft1 < 1.5) break
}
if(nleft1 < 1.5) break
}
big1 = round(blinds1[2]*inc1)
sm1 = round(big1/2)
blinds1 = c(sm1,big1)
plleft = c(1:nplayers1)[chip1>0.5]
nleft1 = length(plleft)
if(nleft1 < 1.5){
stp3 = 2
places1[1] = plleft
z2 = winners1+1
plot(c(0,nplayers1+1),c(lowercut1,chipstart1*nplayers1),
type="n",xlab="player number",ylab="chips",log="y")
text(1*nplayers1/z2,nplayers1*chipstart1, "1st:",col=4,cex=2)
text(2*nplayers1/z2,nplayers1*chipstart1, "2nd:",col=4,cex=2)
text(3*nplayers1/z2,nplayers1*chipstart1, "3rd:",col=4,cex=2)
if(z2 > 4.5) for(z1 in c(4:winners1))
text(z1*nplayers1/z2,nplayers1*chipstart1, paste(z1,"th:"),col=4,cex=2)
for(z1 in c(1:winners1)) text(z1*nplayers1/(winners1+1),
(nplayers1/2)*chipstart1,name1[places1[z1]],col=4,cex=2)
}
}
places1
} ## end of tourn1
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.