Description Usage Arguments Details Author(s) References Examples

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.

1 |

`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 |

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

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 | ```
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
``` |

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.