## MAKE TEAMS:
name1 = c("a","b","c","d","e","f","g","h","i")

x = c("RobertC", "IrisC", "AlexaG", "EvanL", "PeterM",
"KaitlinM", "WilliamM", "AramN", "BrianO", "PeterQ",
"MarcR", "JayveerS", "SaraS", "DanielS", "TannazT",
"NhatT", "JamieT", "NicolasW", "BrianW")

n = length(x) 

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

teams()

 team a WilliamM PeterQ
 team b AramN RobertC
 team c BrianO AlexaG
 team d JayveerS SaraS
 team e PeterM TannazT
 team f EvanL NicolasW
 team g DanielS NhatT
 team h BrianW KaitlinM
 team i IrisC JamieT MarcR