## MAKE TEAMS:
x = c("erin",  "anissa", "allison", "riley", "greg", "charles",
"david", "ryanK", "derek", "natalie", "will", "ian", "todd", 
 "ryanV", "kevin", "jack", "hanh")

n = length(x)  ## 20

name1 = c("a","b","c","d","e","f","g","h","i")

teams = function(){
y = x[sample(n)]
for(i in 1:9){
if(i<9) cat("\n", name1[i], y[(2*i-1):(2*i)])
if(i == 9) cat("\n", name1[i], y[17])
}
}

teams()


### HERE ARE THE TEAMS:
 
 a charles allison
 b todd greg
 c ian riley
 d natalie jack
 e erin david
 f anissa ryanV
 g will derek
 h ryanK kevin
 i hanh paul