many1: function to run many Texas Hold'em tournaments.

Description Usage Arguments Details Author(s) References Examples

Description

Runs the desired number of Texas Hold'em tournaments, and saves the results. By default, only the top 3 finishers receive payouts, and their payouts are 13, 8, and 5, respectively.

Usage

1
many1(name1, decision1, k, winners1 = 3, payouts1 = c(13, 8, 5))

Arguments

name1

names of the players

decision1

codes governing the players' betting

k

number of players

winners1

number of top finishers receiving payouts in each tournament

payouts1

payouts for the top finishers

Details

If length(name1) < k or length(decision1) < k, there will be errors.

Author(s)

Frederic Paik Schoenberg

References

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

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
name1 = c("gravity","tommy","ursula","timemachine","vera","william","xena")
decision1 = list(gravity, tommy, ursula, timemachine, vera, william, xena) 
z1 = many1(name1, decision1, 7)
z2 = z1[[2]]
barplot(z2,names.arg=name1[1:7],cex.names=.9)

## The function is currently defined as
function(name1, decision1, k,winners1=3, payouts1 = c(13,8,5)){
    ## runs k tournaments
    nplayers1 = length(name1)
    d1 = matrix(0,ncol=winners1,nrow=k) ## matrix of results
    d2 = rep(0,nplayers1) ## total pts for each player
    for(i in 1:k){
	cat("\n\n...................  TOURNAMENT NUMBER ",i,":  ................... \n\n")
	d1[i,] = tourn1(name1, decision1)
	for(j in 1:winners1) d2[d1[i,j]] = d2[d1[i,j]] + payouts1[j]
	print(rbind(1:nplayers1,d2))
	#locator(1)
    }
    list(d1,d2)
  } ## end of many1


Search within the holdem package
Search all R packages, documentation and source code

Questions? Problems? Suggestions? or email at ian@mutexlabs.com.

Please suggest features or report bugs with the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.