groups <- c("Hyche Guni", "Dutta Kester", "Conrad, Fanciullacci, Burkle", "Ma Lin", "Kang Jo Lee", "Crowley Olson Sivagurunathan", "Sun, CHen, Chen", "Zhou, Yue, Zhu", "Yuan, Hu, Xu") set.seed(14) groupOrder <- sample( groups, 9, replace=FALSE)