## MAKE TEAMS:,
name1 = c("a","b","c","d","e",
"f","g","h","i","j",
"k","l","m","n","o",
"p","q","r","s","t","u","v",
"w")

x = scan("studentnames",what="character",sep="\n")

n = length(x)

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

teams()

 team a LIU, QIULI .  BURNSIDE, MARK CHRISTOPHER .  CHEN, TIANJIA .
 team b YANCEY, JOEL GRAYSON .  HE, GUANGYAO .  LIU, TIANCHI .
 team c TORREZ, RAQUEL NICOLE .  DOMINGUEZ, RICHARD AGUSTIN .  CHEN, ANDY LINAN .
 team d XING, HANNING .  CHEN, WEIJIE .  HUBENY, REBECCA THERESE PINTO .
 team e MAN, CHUYANG .  MILLER, DOROTHEA CLAIRE .  YAN, FEI .
 team f SHEN, XIAOTIAN .  ZHANG, RONG .  WANG, EMIL .
 team g ST PIERRE, CHRISTIAN GARRISON .  KAGEYAMA, RYAN TADAO .  WEI, ZIYUAN .
 team h LEE, SANGWON .  JEON, DANIEL .  FOSTER, DEREK EVAN .
 team i CHAND, PAARAS .  OJEDA, CHRISTOPHER MATTHEW .  CAO, YUCHEN .
 team j PARKER, GRACE ALEXANDRA .  DRAFAHL, AMY LEE .  MORALES, KAREN VANESSA .
 team k MOON, YEASEUL .  CHEN, DAVID .  RIOS, RODRIGO ALFREDO .
 team l LE, HOA T .  SEPULVEDA, COOPER JAMES .  MOESKAU, SAMANTHA L .
 team m MCKENZIE, DAKOTA LAWTON .  DULANEY, STEWART P .  BAHRUN, IMAN ABDUSEMED .
 team n SETH, ROHIT .  REYES, ALBERTO LUIZ PASCASIO .  DIAZ, MIGUEL OMAR .
 team o ZHANG, HAIYU .  KIM, HAE MI .  SHAFRON, EDWARD WALTER .
 team p LIU, SHENGQIAN .  LEE, YURAN .  YU, DA .
 team q FEKRINIA, KEVIN REZA .  BAEK, SUNG JOON .  AFZAL, AHSAN .
 team r WANG, YEKAN .  LEE, BRIAN S .  CHOI, WONWOO .
 team s YUAN, MUHAN .  HAN, SANGJUN .  AHN, JINYOUNG .
 team t AHN, MICHAEL SUNG MIN .  YU, WEIJIA .  HUANG, JIEBAI .
 team u PARHAMI, SEPIDEH .  YANG, ZHAO .  YANG, NA .
 team v PARIKH, ASHEN UTPAL .  XIANG, PEIWEN .  HART, THOMAS DAVID .
 team w KOSUGE, TAKUYA .  VARTANIAN, GARY LEON .  MACHUCA, SANDRA ASHLEY .

Project teams:

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