## MAKE TEAMS:,

x = c("Radhika", "Yuchen", "Ajeet", "Wendy", 
"Madelynn", "Tiantong", "Kelsey", "Varan", 
"Kaixing", "Moore", "Alyssa", "Quinn", 
"Krishna", "Cole", "Yuetian", "Kevin", 
"Jiaxuan", "Kelly") 

n = length(x)
name1 = as.character(1:(n/2))

teams = function(){
y = x[sample(n)]
for(i in 1:length(name1)){
cat("\n", "team", name1[i], y[2*i-1], ". ", y[2*i], ". ")
}
}

teams()

Project teams:

 team 1 Yuetian .  Jiaxuan . 
 team 2 Wendy .  Kaixing . 
 team 3 Yuchen .  Lunshi . 
 team 4 Ajeet .  Moore . 
 team 5 Kevin .  Krishna . 
 team 6 Madelynn .  Alyssa . 
 team 7 Varan .  Cole . 
 team 8 Quinn .  Kelsey . 
 team 9 Radhika .  Tiantong . 

river: Ajeet, Varan, Jiaxuan, Lunshi. -23 -18 +44 + 100
cards Qd: Wendy, Yuetian, Alyssa, Kelsey. -23 + 19 -41 - 40 
experience: Radhika, Kaixing, Tiantong, Kevin. -20 -14 -15 -18 
position: Madelyn, Quinn, Moore, Cole. +66+16+7-26

## EXAMPLES:,
install.packages("holdem")
library(holdem)
tommy
ursula
vera
william
xena

tommy = function (numattable1, crds1, board1, round1, currentbet, mychips1, 
    pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft) 
{
    a1 = 0
    if (crds1[1, 1] == crds1[2, 1]) 
        a1 = mychips1
    a1
}

ursula = 
function (numattable1, crds1, board1, round1, currentbet, mychips1, 
    pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft) 
{
    a1 = 0
    if ((crds1[1, 1] == crds1[2, 1]) && (crds1[2, 1] > 8.5)) 
        a1 = mychips1
    a1
}

vera = 
function (numattable1, crds1, board1, round1, currentbet, mychips1, 
    pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft) 
{
    a1 = 0
    if ((crds1[1, 1] == crds1[2, 1]) || (crds1[1, 2] == crds1[2, 
        2]) || (crds1[2, 1] > 8.5)) 
        a1 = mychips1
    a1
}

william = 
function (numattable1, crds1, board1, round1, currentbet, mychips1, 
    pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft) 
{
    a1 = 0
    if (mychips1 < 3 * blinds1) 
        a1 = mychips1
    if ((crds1[1, 1] == 14) && (crds1[2, 1] == 14)) 
        a1 = mychips1
    if ((crds1[1, 1] == 10) && (crds1[2, 1] == 9)) {
        u1 = runif(1)
        if (u1 < 0.4) 
            a1 = mychips1
        if (u1 > 0.4) 
            a1 = 0
    }
    if (currentbet == blinds1) 
        a1 = mychips1
    if ((crds1[1, 1] == crds1[2, 1]) && (crds1[1, 1] > 11.5) && 
        (numattable1 < 10)) 
        a1 = mychips1
    a1
}