## MAKE TEAMS:, x = c("ASAKI, JAMES", "BADDLEY, COOPER", "BARRERA, JACK", "BERGMAN-TURNBULL, LIANA", "BUI, ALEXIS", "CHENG, LU", "GONG, LAURA",  "HUANG, STELLA", "JACKSON, SOFIE", "LEE, EDDIE", "LI, VINCENT", "MARTINEZ, AARIN", "NGUYEN, TIFFANY", "REN, DIANA", "SHARMA, DHRUV",  "SHOURYA, SHIVESH", "WORDLAW, ANDREA", "ZHUO, MATTHEW") 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 SHARMA, DHRUV . GONG, LAURA . team 2 BUI, ALEXIS . BARRERA, JACK . team 3 ASAKI, JAMES . LI, VINCENT . team 4 MARTINEZ, AARIN . LEE, EDDIE . team 5 WORDLAW, ANDREA . BERGMAN-TURNBULL, LIANA . team 6 SHOURYA, SHIVESH . CHENG, LU . team 7 JACKSON, SOFIE . NGUYEN, TIFFANY . team 8 ZHUO, MATTHEW . REN, DIANA . team 9 HUANG, STELLA . BADDLEY, COOPER . ## EXAMPLES:, install.packages("holdem") library(holdem) tommy ursula vera william xena