## 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") x = scan("studentnames.txt",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)],".") } } teams() Project teams: team a PARRA GARCIA, ESAUL . WU, YIZHANG . QUAIL-DEHESH, AAJAN . team b WANG, KAIYUE . PARK, KI HYUN . LI, ZHUOQI . team c MATHAI, TOMSON . GOR, JIGAR UMESH . GAUSI, TERRENCE SAYE ZENEGBEAN . team d ZENG, ROLAND . GUAN, XIAOKANG . Zavala, Brianna . team e YANG, ERIC SIYU . PARK, YOUNGJUN . DANYLIK, JAMES PATRICK . team f KU, KYOSEONG . LOU, YAXI . WAN, SHOUZHI . team g ANIGOL, GAJANTH MAHANTESH . YU, FRANKLIN . ZHU, CHENYI . team h LIN, KANGCHENG . AHN, JAE KWAN . MA, JIE . team i CARL, KIRA ANN . TRAN, THANH HIEN THI . YUAN, JUSTIN SIYI . team j QUAN, XIAOYANG . MA, TIANYI . KIM, YONGSU . team k LI, RUOYU . AVENDANO, MICHAEL ANTHONY . ZHOU, MIN . team l GAO, JAMES YANG . ZHAO, WENXUAN . THOMA, BRANDON FU . team m YANG, YUREN . JIANG, HAOCHENG . LI, SHENSHEN . team n JUNG, JONATHAN STEVEN . RAJAN, SANGITA . CLAGETT, ANASTASIA . team o RECINOS, ANTHONY . JIANG, JASON XIAOYU . MOON, YOUSUNG . team p GALINDEZ, VIRIDIANA . WANG, YIRAN . LAD, DHIREN JAY . team q YU, XINYUE . CERECEDES, GABRIEL ANDRES . LY, KATHLYNN ANN . team r LE, KHANH HOANG NICHOLAS . LI, WANDAI . HWANG, SUYEON . team s KIM, HAYOUNG . LIN, SHIXIAO . GOMEZ, VANESSA . team t GUO, YAOTIAN . CHANG, VALERIE CELESTE . GAO, YUANZHI . team u CHOI, BRIAN JIHOON . CHO, CHRISTINE SOOYEON . CHUA, JONATHAN . team v YUAN, FAN . WILSON, AUSTIN JOHN . LING, ZIQING . team w ZENG, YANTING . CHEA, JONATHAN . XU, XIAOXIONG . team x KIM, HAE MI . JIMENEZ, MIGUEL ANGEL . AMBROCIO, ROCIO . ## EXAMPLES:, install.packages("holdem") library(holdem) help(library="holdem") tommy ursula vera william xena