Description Usage Arguments Value Author(s) Examples

Used in tourn1() to play a single hand of Texas Hold'em.

1 2 3 |

`numattable1` |
number of players at the table |

`playerseats1` |
list of indices, who's in seat 1, seat 2, etc. |

`chips1` |
list of chips left, for players at this table only. |

`blinds1` |
vector of small and big blind |

`dealer1` |
seat that the dealer is in |

`ntable1` |
how many tables remain in the tournament |

`myfast1` |
2 = fast, or 0 = slow, i.e. 2 means it will not show the hand graphically. |

`t1` |
probability of showing the hand graphically if there is a double up |

`t2` |
probability of showing the hand graphically if there is an elimination |

`chipstart1` |
starting number of chips everyone has |

`lowercut1` |
lower plotting threshold for a player's number of chips (the y axis) |

`decision1` |
a vector of the players' codes |

`name1` |
names of the players |

`chips2 ` |
how many chips everyone has after the hand |

`draw1 ` |
2 if the hand is to be shown graphically, or 0 if not |

Frederic Paik Schoenberg

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 | ```
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function(numattable1, playerseats1, chips1, blinds1, dealer1,
ntable1,myfast1,t1,t2,chipstart1,lowercut1, decision1){
## numattable1 = number of players at the table
## playerseats1 = list of indices, who's in seat 1, seat 2, etc.
## chips1 = list of chips left, FOR PLAYERS AT THIS TABLE ONLY!
## blinds = vector of small and then big blind
## dealer1 = seat that the dealer is in.
## ntable1 = how many tables remain.
chips2 = chips1 ## this will be the revised chips counts, at the end
if(numattable1 < 1.5) return(chips2)
## want to return other stuff too, liks who's left?
## No need... can do that within main loop. Just check for zeros.
b3 = deal1(numattable1)
b4 = bid1(numattable1,playerseats1, chips1, blinds1, dealer1, b3, ntable1, decision1)
# cat("\n...",b4$bl1,"\n....",b4$il1,"\n")
b5 = bid2(numattable1,playerseats1, blinds1, dealer1, b3,b4,2, ntable1, decision1)
b6 = bid2(numattable1,playerseats1, blinds1, dealer1, b3,b5,3, ntable1, decision1)
b7 = bid2(numattable1,playerseats1, blinds1, dealer1, b3,b6,4, ntable1, decision1)
chips2 = calcwin1(numattable1,playerseats1, b3, b7)
draw1 = 0
u21 = runif(1)
if(((max(chips2/(chips1+.01)) > 1.99) &&
(u21 < t1)) || ((max(chips1/(chips2+.01)) > 99) && (u21 < t2))) {
if(myfast1 < 1) {
text(1,lowercut1,"click to continue",cex=.7)
locator(1)
}
mygraphics1(numattable1,playerseats1,chips1,blinds1,dealer1,
b3,b4,b5,b6,b7,chips2,ntable1,myfast1,chipstart1,
name1,lowercut1)
draw1 = 2
}
list(chips2=chips2,draw1=draw1)
} ## end of hand1
``` |

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.