R/many1.R

In holdem: Texas Holdem Simulator

many1 = function (name1, decision1, k, winners1 = 3, payouts1 = c(13, 
    8, 5)) 
{
    nplayers1 = length(name1)
    d1 = matrix(0, ncol = winners1, nrow = k)
    d2 = rep(0, nplayers1)
    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))
    }
    list(d1, d2)
}
## end of many1